Private Sub Command1_Click()

Dim inputdata

Open App.Path & "\从文件一个字符一个字符地读取信息.txt" For Input As #1

Do While Not EOF(1)

 Input #1, inputdata

 Text1.Text = Text1.Text + inputdata

 Loop

 Close #1  
                                            '输入超出文件尾（错误 62）
End Sub
以下文件内容是手动输入的:

FileLen函数用于返回一个Long型值,代表一个文件的长度.单位是字节.语法:FileLen(Pathname)Pathname:必要的参数,用来指定一个文件名的字符串表达式.可以包含目录文件夹以及驱动器.注意:当调用FileLen函数时,如果指定的文件已经打开,则返回的值是这个文件在打开前的大小,若要取得一个打开文件的长度大小,可使用LOF函数.
                                                                                                       谢谢

当设置了    On Error Resume Next 后运行正常 但原题是可以运行的 另外:把原题的文本文件移至该题中 运行也是正常的
                                                                                             谢谢

可能都去过大年了 没人回答

版主给的附件确实很好,但我还没有那样的水平.先收藏着吧.
我不知道是否该结贴,我期待更好的回答.
                      谢谢回复

这是我的代码
Private Sub Command1_Click()
Dim inputdata
'On Error Resume Next                                                     '设置错误陷阱后运行正常
Open App.Path & "\从文件一个字符一个字符地读取信息.txt" For Input As #1
Do While Not EOF(1)
 Input #1, inputdata
 Text1.Text = Text1.Text + inputdata
 Loop
 Close #1                                              '输入超出文件尾（错误 62）
End Sub

Private Sub Command2_Click()                           '上网求助
End
End Sub
                                                                                                       谢谢您的帮助