文件显示问题？

从指定的任意一个驱动器中的任何一个文件下查找文本文件（不含汉字），并将选定的文件的完整路径显示在文本框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