Example - Input Function

  1. Sub Main

    1. Open "TESTFILE" For Input As #1' Open file.

      Do While Not EOF(1)' Loop until end of file.

      1. MyStr = Input(10, #1)' Get ten characters.

        MsgBox MyStr

      Loop

      Close #1' Close file.

    End Sub