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.