vb.net 写数据csv

Public Class Form2
    Public Structure aa
        Dim a As String
        Dim b As Integer
        Dim c As Boolean
    End Structure
    Public sh(222) As aa
    Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim fileStream As System.IO.FileStream
        Dim streamReader As System.IO.StreamReader
        Dim streamWriter As System.IO.StreamWriter
        Dim strRow As String
        Dim filePath As String = "e:/CsvTest.csv"
        For i As Integer = 0 To 22
            sh(i).a = "zhangxg"
            sh(i).b = i * i
            sh(i).c = (i Mod 2 = 0)
        Next
        Try
            If (System.IO.File.Exists(filePath)) Then
                System.IO.File.Delete(filePath)
            End If

            fileStream = New IO.FileStream(filePath, System.IO.FileM