这是我自己写的代码，打算用来打开我选中的文件，可这些语句不能实现，请高人帮指点迷津，谢谢了！
fname = File1.Path + File1.FileName
Open "fname" For Input As #1
Text1.Text = Input(LOF(1), #1)
Close #1

我的具体事件过程是这样的

Sub File1_Click()
fname = File1.Path + File1.FileName
Open fname For Input As #1
Text1.Text = Input(LOF(1), #1)
End Sub
已经按照你说的改了 ，可还是不行这是为什么呢？？请指教！

程序是这样的
Sub File1_Click()
fname = File1.Path + File1.FileName
Open fname For Input As #1
Text1.Text = Input(LOF(1), #1)
Close #1
End Sub

顺便寻求哪位高人的QQ号码，有些程序方面的问题想请教，谢谢！