文件显示问题？

[lucifier]

从指定的任意一个驱动器中的任何一个文件下查找文本文件（不含汉字），并将选定的文件的完整路径显示在文本框Text1中，文件内容显示在文本框text2中。
Private Sub Form_Load()
File1.(1)="*.text"
End Sub
Private Sub Dir1_Change()
(2)
End Sub
Private Sub Drive1_Change()
(3)
End Sub
Private Sub File1_Click()
if Right(File.Path,1)<>"\" then
text1.text=file1.path & "\" & file.filename
else
text1.text=file1.path & file1.filename
end if
(4)
text2.text=input(lof(1),1)
close
end sub

[lucifier]

在（1），（2），（3），（4）处分别填上一段代码

[3661512]

(1)FileName
(2)file1.path=dir1.path
(3)dir1.path=drive1.Drive
(4)Open text1.text For Input As #1

[lucifier]

谢谢你！