在窗体上画一个文本框，名称为Text1，画一个命令按钮，名称为Command1。程序

问题：

在窗体上画一个文本框，名称为Text1，画一个命令按钮，名称为Command1。程序运行时，单击命令按钮，能将事先输入到文本框中的内容一个字符一个字符地写入顺序文件test .dat中。请在空格处填上适当的内容，将程序补充完整。
Private Sub Command1_Click()
Open "c:\test.dat"For 【14】 As #1
For i=1 to Len(Text1.text)
print#1，mid(Text1.Text，i，1)
Next
Close #i
End Sub