French lire et écrire texte "csv" ligne par ligne

TheDate = "002,02, To Do 2,0-399.9        ,OK2,4,@ 003,00,TRACK TIME   ,0-399.9        ,TMP,5,@    003,02,TRACK TIME,0-399.9        ,TMP,6,@    004,00,TITLE  ,0-99900        ,DIR,7,@"

Dim Reader As TextReader
Reader.Initialize(File.OpenInput(File.DirInternal, "FileName.csv"))
Dim line As String
line = Reader.ReadLine
Do While line <> Null
    Log(line)
    line = Reader.ReadLine
Loop
Reader.Close

Thedate = "002,02, To Do 2,0-399.9        ,OK2,4,@ 003,00,TRACK TIME   ,0-399.9        ,TMP,5,@    003,02,TRACK TIME,0-399.9        ,TMP,6,@    004,00,TITLE  ,0-99900        ,DIR,7,@"

 ...   debligne = Thedate.IndexOf("@")
    labelstring = Thedate.substring2(0,debligne) '"fin de ligne OK" 'Parsed(0)
    Log (Thedate)
    Log (labelstring)
    Label1.text = labelstring
...

private Sub readLineCSV
    Dim Reader As TextReader
    Reader.Initialize(File.OpenInput(File.DirAssets, "string.csv"))
    Dim line As String
    line = Reader.ReadLine
    list.Add(line)
    Do While line <> Null
        line = Reader.ReadLine
        list.Add(line)
    Loop
    Reader.Close
End Sub

Private Sub btNext_Click
    If list.Get(0) <> Null Then
        lblLine.Text = list.Get(0)
        Sleep(0)
        list.RemoveAt(0)
    Else
        Return
    End If
End Sub

Dim myString() As String
myString = Regex.Split("SEPARATEUR", "LigneDuCSV")

Dim myList1 As List
Dim myList2 As List
myList1.Initialize
myList2.Initialize
For i = 0 To myString.Length -1
    myList1.Add(myString(0))
    myList2.add(myString(1))
Next