Dim reader As TextReader
reader.Initialize(File.OpenInput(File.DirAssets,csvFile))
Dim line As String = " "
'Dim Mylist As List
cbMime2.Items.Clear
'Mylist.Initialize
line = reader.ReadLine ' eat the headers
Do While reader.ready
line = reader.ReadLine.Replace(",,",", ,")
if line.EndsWith(",") Then line = line & " " ' can cause odd things if no value after ,
Dim result() As String
result=Regex.Split(",",line)
Log(result(0) & " | " & result(1) & " | " &result(2))
cbMime2.Items.Add(result(0) & " - " & result(1))
'Mylist.add(line)
Loop
'Log("CSV size: " & Mylist.Size)
reader.Close
' cbMime2.Items.Clear
' For Each i As String In Mylist
' Dim result() As String
' result=Regex.Split(",",i)
' Log(result(0) & " | " & result(1) & " | " &result(2))
' cbMime2.Items.Add(result(0) & " - " & result(1))
' Next
Log(cbMime2.Items.Size)