小吳 VBQA 程式設計討論

請問各位
我用vb讀取一文字檔1804bytes用下列程式
　　flen = FileLen(chr1)
　　Open chr1 for input as #1
　　Text3.text = input$(flen , #1 )
　　close #1
　　有的檔案可以讀 有的檔案會出現 "輸入已超過檔案結尾"
　　在input那一行
　　會出現錯誤的檔案 我有看其內碼 1804bytes最後會含兩個
　　1A 1A 的碼
　　是否有其他法可讀取???