Hi Alex,
What are you trying to do here? This will open the file and load each
line into an array using VBs file access system...

Sub ReadFile()
Dim temp() As Variant, lngInc As Long
Open strFile For Input As #1
While Not EOF(1)
ReDim Preserve temp(lngInc)
Line Input #1, temp(lngInc)
Let lngInc = lngInc + 1
Wend
Close #1
End Sub

OJ