关于txt文件保存和打开的问题，帮忙给小弟弟一个援手，呵呵，谢谢

[6facebeast]

我在窗体上放了一个文本框和两个按钮，还有一个通用对话框，在程序运行期间，只能打开有一个字符的文件而且保存完之后，再打开，文本框就清空了，代码如下
Private Sub Command1_Click()
CommonDialog1.Filter = "文档文件(*.txt)|*.txt|所有文件(*.*)|*.*"
CommonDialog1.ShowOpen
Open CommonDialog1.FileName For Input As #1
Text1.Text = StrConv(Input(LOF(1), 1), vbUnicode)
Close #1

End Sub

Private Sub Command2_Click()
CommonDialog1.Filter = "文档文件(*.txt)|*.txt|所有文件(*.*)|*.*"
CommonDialog1.ShowSave
Open CommonDialog1.FileName For Output As #1
Close #1
End Sub