In diesem Beispiel wird die Input-Funktion verwendet, um Zeichen einzeln aus einer Datei zu lesen und im Direktfenster auszugeben. In diesem Beispiel wird angenommen, daß DATEI1 eine Textdatei ist, die einige Zeilen mit Beispieldaten enthält.
Dim Zeichen1 Open "DATEI1" For Input As #1 ' Datei öffnen. Do While Not EOF(1) ' Schleife bis Dateiende. Zeichen1 = Input(1, #1) ' Ein Zeichen lesen. Debug.Print Zeichen1 ' Ausgabe im Direktfenster. Loop Close #1 ' Datei schließen.