这个COM的对话框控件取消就是这样的机制，要判断用户点的是“取消”，就要设置控件的CancelError属性为True才可以接收到用户是否点了取消（这样真是增加了程序员的代码工作量），对了你的程序修改成这样就可以了：
创新互联致力于互联网网站建设与网站营销，提供做网站、成都网站制作、网站开发、seo优化、网站排名、互联网营销、微信小程序开发、公众号商城、等建站开发，创新互联网站建设策划专家，为不同类型的客户提供良好的互联网应用定制解决方案，帮助客户在新的全球化互联网环境中保持优势。
On Error Resume Next
Dialog.Flags = H4
Dialog.DefaultExt = ".txt"
Dialog.FilterIndex = 1
Dialog.CancelError = False
Dialog.ShowSave
If Err.Number = 0 Then
Open Dialog.FileName For Output As #1
Print #1, Text_List.Text
Close #1
End If 答案补充 有上的有误，下面的正确：
On Error Resume Next
Dialog.Flags = H4
Dialog.DefaultExt = ".txt"
Dialog.FilterIndex = 1
Dialog.CancelError = True
Dialog.ShowSave
If Err.Number = 0 Then
Open Dialog.FileName For Output As #1
Print #1, Text_List.Text
Close #1
End If
1、首先，点击保存按钮后应检查文本框内容。
2其次，如果在文本框4中输入的值以400开头则保存反之更改为400。
3、最后，再次检查文本框5如果文本框5中的值为29或31则保存反之则更改即可。
添加一个SaveFileDialog，在保存excle选择时候添加
SaveFileDialog1.show（）
用法跟OpenFileDialog相同
'代码中Button控件自行在窗体中添加并改名
***********************************父窗体代码：
Public Class Form1
Public Sub From1_保存Button_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles From1_保存Button.Click
Select Case sender.name
Case "From1_保存Button"
MsgBox("提交的窗体是From1")
Case "Form2_提交Button"
MsgBox("提交的窗体是From2")
End Select
Form2.Close()
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button_显示子窗体.Click
Form2.ShowDialog()
End Sub
End Class
***********************************子窗体代码：
Public Class Form2
Private Sub Form2_提交Button_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Form2_提交Button.Click
Form1.From1_保存Button_Click(Form2_提交Button, New System.EventArgs)
End Sub
End Class
***********************************
方法满多的，起码三四种，比如用一个全局变量保存当前提交窗体名，执行操作的代码读取这个全局变量就行。最方便的应该是做过程
Public Sub DateBaseAdd(ByVal From As Form)
，然后父窗体跟子窗体都能调用这个全局过程，同时传入窗体名称
