Example - Input Function

Sub Main
    Open "D:\Temp\TESTFILE.TXT" For Input As #1 ' Open file.
    Do While Not EOF(1) ' Loop Until End of file.
        MyStr = Input(10, #1) ' Get ten characters.
        MsgBox MyStr
    Loop
    Close #1 ' Close file.
End Sub