Try this, write a module and put this code in it:
Code:
dim fs
dim f
dim sPath as string
dim sline
dim iRow as long
spath = "c:\test\testfile.txt" '<====== PUT YOUR ACTUAL FILE PATH AND NAME HERE
set fs = createobject("scripting.filesystemobject")
set f = fs.opentextfile(spath)
do while f.atendofstream <> true
irow = irow + 1
sline = f.readline
if len(sline) > 32000 then
debug.print "ROW " & irow & " has " & len(sline) & " characters in it
endif
loop
set fs = nothing
see if you get anything in your immediate window