parsing af txt fil

Dvs. du vil gerne have det adskildt for hvert mellemrum, eller....

Denne her skulle kunne gøre det....:
Sub test()
Dim txt()

Open \"c:\\20011108.txt\" For Input As 1

Line Input #1, maintxt
x = 1

Do
    icount = icount + 1
    ReDim txt(icount)
    x = InStr(x + 1, maintxt, vbTab)
    y = InStr(x + 1, maintxt, vbTab)
    If y = 0 Then
        txt(icount) = Trim(Mid(maintxt, x + 1))
    Else
        txt(icount) = Trim(Mid(maintxt, x, y - x))
    End If
    Debug.Print txt(icount)

Loop Until y = 0

Close 1

End Sub