Sub Main
   Open "TESTFILE" For Input As #1   ' Open file.
   Do While Not EOF(1)   ' Loop until end of file.
       Line Input #1, TextLine   ' Read line into variable.
           Print TextLine   ' Print to Debug window.
   Loop
   Close #1   ' Close file.
End Sub
 
 
Sub test
 
Open "MYFILE" For Input As #1   ' Open file for input.
Do While Not EOF(1)   ' Check for end of file.
   Line Input #1, InputData   ' Read line of data.
   MsgBox InputData
Loop
Close #1   ' Close file.
 
End Sub
 
 
Sub FileIO_Example()
   Dim Msg   ' Declare variable.
   Call Make3Files()   ' Create data files.
   Msg = "Several test files have been created on your disk."
   Msg = Msg & "Choose OK to remove the test files."
   MsgBox Msg
   For I = 1 To 3
      Kill "TEST" & I   ' Remove data files from disk.
   Next I
End Sub
 
 
Sub Make3Files ()
   Dim I, FNum, FName   ' Declare variables.
   For I = 1 To 3
       FNum = FreeFile   ' Determine next file number.
       FName = "TEST" & FNum
       Open FName For Output As FNum   ' Open file.
       Print #I, "This is test #" & I   ' Write string to file.
       Print #I, "Here is another ";  "line";  I
   Next I
   Close   ' Close all files. 
End Sub