Open App.Path & "thefile.txt" For Input As #1
while not EOF
  Input #1, buffer
  parse(buffer)
endw
Close #1

It's been a while but that should be somewhat correct. Try messing about with it until it works. Buffer should be a string.