高手提供打开文件并输入到Text1.Text 的代码：

Private Sub File1_Click()
Dim aStr As String
Open File1.Path & "\" & File1.FileName For Input As #1
While Not EOF(1)
Line Input #1, aStr
Text1.Text = Text1.Text + aStr + vbCrLf
Wend

End Sub

但执行时却出现：

实时错误“76”
路径未找到 ！

请教！

谢谢！