работает 100% :

-------------------------------------------------------
dim fleName as string, nFile as integer, getLine as string
dim line_counter as long :line_counter=0

nFile=freefile
open fleName for binary as #nFile
do while seek(nFile)<Filelen(fleName)
Line Input #nFile, getLine
line_counter+=1
debug.writeline(line_counter.tostring +", "+trim(getLine))
loop
close
-------------------------------------------------------