se ne è parlato spesso nel forum, cmq...:

codice:
Dim riga as string
Dim pFile as string

pFile = "C:\nomefile.txt"

Open pFile for Input as #1
 do until eof(1) 'esegue riga x riga fino alla fine del file.
  input #1,riga
  debug.print riga
 loop
Close#1