Dim Reader As TextReader
Reader.Initialize(File.OpenInput(File.DirRootExternal, "test4.csv"))
Dim line As String
line = Reader.ReadLine
List1.Initialize
Do While line <> Null
Dim LineArray() As String
LineArray = Regex.Split(";", line)
List1.Add(LineArray)
line = Reader.ReadLine
Loop