Erst mal in VB den gleichen Record deklarieren. Die Teile, zu denen du keine Entsprechung findest, am besten in strings fester Länge packen (Test As String * 6).
Dann einfach einlesen:
dim TESTRECORD as tTESTRECORD
dh = FreeFile
Open Dateiname For Random As #dh Len = Len(TESTRECORD)
While Not EOF(dh)
Get #dh, , TESTRECORD
'Hier weiterbehandeln oder in Array packen
wend
close #dh