在第一个窗口安装了一个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文档。。。
请教第二个窗口的编码怎么弄，第一个窗口的编码有什么错误啊

把第二个窗口再模块中定义成全局变量，然后在这个窗口里调用，可以获取第二个窗口里空间内容。

a=form2.text1.text

控件的属性，在工程里是可以直接引用的。
   窗体名.控件名.属性

窗体的全局变量，就是在 form 代码里，以public 定义的变量，也是可以直接引用的。
   窗体名.变量名

第二个窗体代码：
Private Sub Command1_Click()
If Text1.Text <> "" Then Load Form1
把第一个窗体代码修改为：
Public delt, twfin, autot, a As Single
 Private Sub Command9_Click()
' Print a
 CommonDialog1.Filter = "文本文件(*.txt)|*.txt"
 CommonDialog1.InitDir = "E：\"
 CommonDialog1.Action = 2
 CommonDialog1.FileName = Form2.Text1.Text
 If CommonDialog1.FileName <> "" Then
 Open CommonDialog1.FileName For Output As #1
 Print #1, a
 Close #1
 End If
 End Sub

Private Sub Form_Load()
 CommonDialog1.FileName = Form2.Text1.Text
CommonDialog1.ShowSave
Call Command9_Click
End Sub
首先运行第二个窗体，自动打开第一个窗体，另存为。其他，你看的修改吧