Input( n , [#] filenumber )
Input returns characters from a sequential file.
Sub Main Open "TESTFILE" 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