Example:

  1. Sub Main

    1. Open "c:\test.txt" For Input As #1

      Do While Not EOF(1)

      1. MyStr = Input(10, #1)

        MsgBox MyStr

      Loop

      Close #1

     

    End Sub

 

  1. Sub Make3Files ()

    1. Dim I, FNum, FName ' Declare variables.

      For I = 1 To 3

      1. 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 "; I

      Next I

      Close ' Close all files.

    End Sub