vb保存文件的问题

楼上的对了，只不过太粗糙，如果楼主是个新手肯定不明白，我补充一下
“工具”-->“引用”，在打开的对话框中选择“windows common control dialog ”(怎么写的我忘了，不太精确)-->“确定”
你一定有“保存”按钮吧，双击，它输入
cmd1.filter=“文本文件（*.txt）|*.txt”
cmd1.ShowSave
If Not Len(cmd1.FileName) = 0 Then
Open cmd1.FileName For Output As #1
Print #1, Text1
Close #1
End If

Private Sub Command1_Click()
cmd1.ShowSave 'cmd1是一个commondialog控件
If Not Len(cmd1.FileName) = 0 Then
Open cmd1.FileName For Output As 1 '打开一个你刚才输入的文件名，作为输出。
Print #1, Text1.Text '写数据
Close 1 '关闭
End If

End Sub