在第一个窗口安装了一个CommonDialog空间，部分程序如下
Public delt, twfin, autot, a As Single
Private Sub Command9_Click()
Print a
CommonDialog1.Filter = "文本文件(*.txt)|*.txt"
CommonDialog1.InitDir = "E：\"
CommonDialog1.Action = 2
If CommonDialog1.FileName <> "" Then
Open CommonDialog1.FileName For Output As #1
Print #1, a
Close #1
End If
End Sub
在另一个窗口中有一个文本框
需要达到的目的是在那个文本框输入数据后在另一个窗口中单击会出现另存为提示，并把文本框的数据写入新建的txt文档。。。
请教第二个窗口的编码怎么弄，第一个窗口的编码有什么错误啊