Input from File

[RogerH]

Check out this:

Dim Count1 As Long
Dim FileName As String
Dim FileHandle As Long

FileName = "C:\temp\test.txt"
FileHandle = FreeFile   'Use this instead of a fixed number!
Open FileName For Random As #FileHandle Len = 15

'EOF gives back False (0) as long as
'your not at the enf of file!
Count1 = 0
Do While Not EOF(FileHandle)
    Count1 = Count1 + 1
    'Rest of processing...
Loop

Close #FileHandle

Hope it helps
Roger

[This message has been edited by RogerH (edited 01-01-2000).]