filedialog "Open text file","*.txt",file$ DIM LineArray$(1000) counter=1 open file$ for input as #f While eof(#f)=0 Line input #f, Line$ LineArray$(counter)=Line$ : counter=counter+1 print Line$ Wend print:print:print print "The number of lines in this file is " + str$(counter) print "Line number 7 in this file is: " + LineArray$(7) close #f