填空题

以下程序的功能是：把当前目录下的顺序文件smtext1.txt的内容读入内存，并在文本框Text1中显示出来。请填空。
Private Sub Command1_Click()
Dim inData As String
Text1.Text=""
Open".\smtext1. (12) AS#1
Do While (13)
Input#1,inData
Text1.Text=Text1.Text&inData
Loop
Close#1
End Sub