Private Sub Command1_Click()
If Text1.Text = "" Or Text2.Text = "" Then
Beep
MsgBox "数据不全"
Exit Sub
End If
内容 = Text2.Text
日期 = Text1.Text
天气 = Combo1
Write #1, 内容, 日期, 天气
Text2.Text = ""
Text2.SetFocus
End Sub

我仿照书上，练习做了个窗体，为啥运行到
Write #1, 内容, 日期, 天气
提示错误
且，输入内容关闭后，下次打开，有是空白，也就是内容无法保留？