读GBK编码的文件，读不全，是怎么回事，帮帮忙

Question

比如我的文件里面1000个字符，但用VB读它只能读到第400个字符它就认为读完了。文件是GBK编码的，感谢指点。
strFileName = App.Path & "\aaa.txt"
lngHandle = FreeFile()
Open strFileName For Input As lngHandle
Do While Not EOF(lngHandle)
    'strName = ""
    On Error Resume Next
    Line Input #lngHandle, strName
    msgbox strName
loop

Answer 1

你的文件是怎么写入的？
Eof对Input打开的文件，似乎是遇到Chr(0)就会返回True了，所以你的文件可能有点问题。不过这也不难，二进制整体读入就行了
Dim a() As string,i as long
Open strFileName For Binary As lngHandle
strName=Strconv(InputB(Lof(lngHandle),lngHandle),vbUnicode)
Close lngHandle
a=split(strName,vbCrlf)
for i=0 to Ubound(a)
msgbox a(i)
next