Ciao.
Molto probabilmente puoi leggere tutto il file in un oggetto List tramite File.ReadList(Dir, NomeFile).
Fatto questo, supponendo che tu non voglia/possa usare caratteri speciali che rappresentino inizio e fine di un "campo", come ad esempio i tag che si usano qui per pubblicare codice, ovvero [ CODE ] [ / CODE ] (senza spazi), dovrai usare le funzioni stringa, nel suo esempio la SubString2 (altrimenti potresti usare altri metodi pratici).
Ad esempio (supponendo che le posizioni siano sempre le stesse in tutte le righe di testo):
Dim lstRighe As List = File.ReadList(File.DirDefaultExternal, "NomeFile.txt")
Dim Campo1(lstRighe.Size), Campo2(lstRighe.Size) As String
Dim Riga As String
For i = 0 To lstRighe.Size - 1
Riga = lstRighe.Get(i)
Campo1(i) = Riga.SubString2(0, 15)
Campo2(i) = Riga.SubString2(31, 57)
Next
Campo1() e Campo2() possono essere anche di tipo diverso da String, saranno convertiti automaticamente (magari con qualche cautela).