Example:

  1. Dim MyString, MyNumber

    Open "c:\TESTFILE" For Input As #1 ' Open file for input.

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

    1. Input #1, MyString, MyNumber ' Read data into two variables.

    Loop

    Close #1 ' Close file.