Example - FreeFile Function

1. Sub Main()

   1. Dim Mx, FileNumber

      For Mx = 1 To 3

      1. FileNumber = FreeFile

         Open "c:\e1\TEST" & Mx For Output As #FileNumber

         Write #FileNumber, "This is a sample."

         Close #FileNumber

      Next Mx

      Open "c:\e1\test1" For Input As #1

      Do While Not EOF(1)

      1. MyStr = Input(10, #1)

         MsgBox MyStr

      Loop

      Close #1

   End Sub