Problems Reading a Text File with chr$ in VB6

[Kilokahn]

I tried:

If Dir$(App.Path & "\out.txt") <> "" = True Then
 
  fnum = FreeFile
  Open App.Path & "\out.txt" For Input As fnum
 
    'Line Input #fnum, livekey
    
    livekey = Input(LOF(1), 1)
      Close fnum
 
End If

And what I got from VB was and error: Input past end of file.

I tried Line Input and still the same, cuts off at that one part, same as before.

Dunno, this seems to be one wacky text file.

Chris