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