Private Sub Form_Load()
Dim pfad As String
pfad = "D:\test.txt"
Dim Zeichen As String
Dim neuArr() As String
Dim subArray() As String
 
Dim ff As Integer
ff = FreeFile
 
    Open pfad For Binary As #ff
        Zeichen = Space(LOF(ff))
        Get #ff, , Zeichen
    Close ff
 
    neuArr() = Split(Zeichen, vbCrLf) 'zeilenweise aufsplitten
 
        For i = 21 To UBound(neuArr) 'ab Zeile 21
            subArray() = Split(neuArr(i), " ") ' Split auf Leerzeichen
            MsgBox "Spalte 1: " & subArray(0) & vbCrLf & _
             "Spalte 3: " & subArray(3) & vbCrLf & _
             "Spalte 4: " & subArray(4)
            Exit For ' nur für dieses Beispiel
        Next
 
End Sub

x = CLng(subArray(3))