Συνάρτηση Input [VBA]

Επιστρέφει την ανοικτή ροή εισόδου ή δυαδικού αρχείου (συμβολοσειράς).

Αυτή η σταθερά, συνάρτηση ή αντικείμενο ενεργοποιείται με την πρόταση Option VBASupport 1 τοποθετημένη πριν τον κώδικα του εκτελέσιμου προγράμματος σε άρθρωμα.

Input( Number as Integer, [# ] FileNumber as Integer)

String

Number (Αριθμός): Απαιτείται. Αριθμητική παράσταση που καθορίζει τον αριθμό των χαρακτήρων προς επιστροφή.

#: Προαιρετικό.

FileNumber: Απαιτείται. Οποιοσδήποτε αριθμός έγκυρου αρχείου.

REM ***** BASIC *****
Option VBASupport 1
Sub Example_Input
    Dim MyData
    Open "MyDataFile.txt" For Input As #1
    Do While Not EOF(1)
        MyData = Input(1, #1)
        Print MyData
    Loop
    Close #1
End Sub