★　StreamReaderを使ってのCSVファイルの読み込み

'成績のデータ保存用構造体
Private Structure SeisekiDat   
    Dim name As String          '生徒名
    Dim kokugo As Single        '国語の点数
    Dim suugaku As Single       '数学の点数
    Dim eigo As Single          '英語の点数
End Structure
Private sd() As SeisekiDat

'-------------------------------------------------------------------------------

Private Sub Button1_Click(ByVal sender As System.Object, _
                          ByVal e As System.EventArgs) Handles Button1.Click
'StreamReader.ReadLine メソッド を使ってのCSVファイルの読み込み 
    Dim fileName As String = "../../seiseki.csv"    'ファイルのパス
    Dim sr As New System.IO.StreamReader(fileName, System.Text.Encoding.Default)
    Dim n As Integer
    'ファイルの最後までループ
    Do Until sr.Peek() = -1
        Dim temp() As String
        ReDim Preserve sd(n)
        temp = Split(sr.ReadLine(), ",")
        '※１ データの項目数と内容が事前に解っているので
        sd(n).name = temp(0).Trim(Chr(34))  '※２ 文字列の前後の "" を除去
        sd(n).kokugo = CSng(temp(1))        'Single 型に変換
        sd(n).suugaku = CSng(temp(2))
        sd(n).eigo = CSng(temp(3))
        '取得結果を確認の為に表示
        Console.WriteLine(sd(n).name & vbTab & sd(n).kokugo & vbTab & _
                                      sd(n).suugaku & vbTab & sd(n).eigo)
        n += 1
    Loop
    sr.Close()     'ファイルを閉じる

'出力結果 
    '浅野  純子 63 69 87
    '足立  由美 77 69 85
    '加藤  愛子 80 91 92
    '斉藤  正樹 79 84 70
End Sub