.Input ( Read Contentsof Text File - line by Line )

[dowav]

I'm trying to import Data from a text file, which includes the following,

Vessel Name
000115600
000025600
000000000
000089000
000019000
000000000
6670.43

The above file is updated every five minutes and I wish to retreive this data in
order to perform calc's and then display a completion time for a process on the
User Form.

code:-----------------------------------------------------------------------------
---
Open "YourFile.txt" For Input As #1
While Not EOF(1)
Input #1, YourVariable
List1.Additem YourVariable
Wend
Close #1
--------------------------------------------------------------------------------

Instead of adding to a list as in the above example, I want to process it Line by
Line ( How do I achieve this using .Input ).

Help

[Lethal]

Use "Line Input #1" instead of Input #1

[dowav]

Sorry - Still can't get it to work - must be doing something wrong , how should it be written for each line ?

[Matthew Gates]

This code works for me:

Dim YourVariable As String
Open "YourFile.txt" For Input As #1 
Do While Not EOF(1) 
Line Input #1, YourVariable 
List1.Additem YourVariable 
Loop 
Close #1