如何在TEXT里显示打开的文本呢？

Private Sub File1_Click()
Dim SelectedFile As TextBox
SelectedFile = File1.Path & "\" & File1.FileName
Text1.Text = Text(SelectedFile)

End Sub

请代我修改下！谢谢！