写出下面这段函数实现的功能。
Private Sub Command1_Click（）
Dim inData As String
Text1.Text=""
Open".\smtext1.txt"For InputAs#1
Do While Not EOF（1）
Input#1，inData
Text1.Text=Text1.Text&inData
Loop
Close#1
End Sub