'*** Variablen für das Einlesen der Textdatei
    Dim s       As String
    Dim ff      As Integer
    
    '*** Variablen für zeilenweise Verarbeitung
    Dim v       As Variant
    Dim i       As Long
            
    '*** Datei öffnen, einlesen und wieder schließen
    ff = FreeFile
    Open "c:\Test\Testfile.txt" For Binary As #ff                   '<~~ Datei anpassen // bzw in Funktion auslagern
        s = Space(LOF(ff))
        Get #ff, , s
    Close #ff
    
    '*** Beispielsweise ab zweiter Zeile, zeilenweise verarbeiten
    v = Split(s, vbNewLine)
    For i = 2 To UBound(v)
        Debug.Print v(i)                                            'Hier elegant die Spalten in die nächstfreien Excelzellen schreiben
    Next i