在窗体上画一个命令按钮和一个文本框，其名称分别为Command1和Text1，然后编写如下事件过程：
Private Sub Command1_Click()
Dim inData As String
Text1.Text=" "
Open "d:\Myfile.txt" For (14) As#1
Do While (15)
Input#1，inData
Text1.Text=Text1.Text+inData
Loop
Close#1
End Sub
程序的功能是，打开D盘跟目录下的文本文件Myfile.txt，读取它的全部内容并显示在文本框中，请填空。