文本框 读入文件出现 "输入超出文件尾"

我写了个读入中文文本的代码,在读到一个文件时出现上面说的错误,但读别的中文文本文件没出错.下面是我的代码
Open FileName For Input As FileNum
Text1.Text = StrConv(InputB(LOF(FileNum), FileNum), vbUnicode) '把Ansi格式再转换为unicode格式
Close FileNum

filename 是要打开的文件名,filenum是一个文件号.
付上一个一读就出错的哪个中文文件