ti faccio queste domande
il tuo file non ha caratteri per la separazione dei dati?
ogni riga è un registro?
alla fine di ogni riga non hai qualche cosa che ti segna il fine della riga?
ho cercato un po in rete è ho trovato questo codice + o - modificato per la tua necessita spero ti serva
Dim oFile As System.IO.File
Dim oRead As System.IO.StreamReader
Try
oRead = oFile.OpenText("C:\tuofile.txt")
Dim str as string
While oRead.Peek <> -1
str = Mid(1, 10, oRead.ReadLine)
Console.WriteLine(str)
End While
Catch ex As Exception
Finally
oRead.Close()
End Try
facci sapere, 
"Che in questo 2009 i nostri codici possano sconvolgere il mondo."