以下程序的功能是：把顺序文件smtext1.txt的内容全部读入内存，并在文本框Text1中显示出来。请填空。
Private Sub Command1_Click()
Dim inData As String
Text1.Text=" "
Open"smtext1.txt" (13) As (14)
Do While (15)
Input #2 ,inData
Text1.Text=Text1.Text＆inData
Loop
Close #2
End Sub