Dim text As String
Dim text2 As String * 1

Open "test.txt" For Input As #1
    'ganze Zeile einlesen:
    Do
        Line Input #1 , text 'Lese aus Dateinummer 1 die aktuelle Zeile in die variable text
        'mach das und das mit dem text
    Loop Until Eof (1) 'solange wiederholen bis man einmal mit der ganzen Datei durch ist

    'ein Zeichen einlesen:
    Get #1 , 3 , text2 'Lese aus der Datei 1 and Position 3 das Zeichen aus und speichere es in text2
Close #1

End 0