Sub main()
 
'Variablendeklaration
Dim strTest As String
Dim intZeile As Integer
 
On Error GoTo Ende
Dim Datei As String
Datei = "C:\FIAN01.txt"
'Textdatei öffnen
'Anfangszeile
intZeile = 1
    Open Datei For Input As #1
        Do
            'Zeilenweise in Variable schreiben
            Input #1, strTest
            'Ausgabe in Textbox
            Sheets("Tabelle1").Cells(intZeile, 1) = strTest
            Sheets("Tabelle1").Cells(intZeile, 2) = ""
            intZeile = intZeile + 1
        Loop While Not EOF(1)
       ' Close Datei
Exit Sub
Ende:
MsgBox Error, vbCritical
 
End Sub