f = FreeFile
 
    Open "Test.txt" For Input As #f
 
    Do While Not EOF(f)
 
        Input #f, sInstring
 
        'erste 4 Zeichen und letztes Zeichen
        'Debug.Print Left$(sInstring, 4) + " " + Right$(sInstring, 1)
 
        'Adresse extrahieren - Beginn Position 37, Länge 70 Zeichen, erstes 
        ' Zeichen rausschneiden
        adresse = Right(Mid$(sInstring, 37, 70), 69)
 
        s = 1 'Position Leerzeichen
        x = 0 'Anzahl Leerzeichen
 
        For i = 1 To 25 'Annahme: es gibt nicht mehr als 25 Leerzeichen im 
        ' Adressenfeld
 
            If InStr(s, adresse, " ") Then
 
                x = x + 1
                s = InStr(s, adresse, " ") + 1
 
            End If
 
        Next i
 
        'Adresse aufteilen in Blöcke
        sOutString = Split(adresse)
 
        adresse = "" ' Varable leeren
 
        'und wieder zusammensetzen ohne den letzten Block (Nullen)
            For i = 0 To x - 1
 
                If i = x - 1 Then
                    adresse = adresse & sOutString(i)
                Else
                    adresse = adresse & sOutString(i) & " "
                End If
 
            Next
 
        Debug.Print adresse
 
    Loop
 
    Close #f

Klug ist, wer andere durchschaut,
weise, wer sich selbst durchschaut.
[Laotse]