图如上

错误信息：要求对象

要求对象的错误就是你代码中用到了并没有出现的控件或者对象
中断在这句的时候，加入几个监控，看哪个是nothing。 我估计是你的commondialog，前面那句用的是

试过了，还是不行。

你的 CommonDialog1 控件在什么位置？在 MDIFrm 里。
而你的调用时，是在包含RichTextBox1 控件的 form 里调用，而这个窗体中不包括 CommonDialog1 。
参照你上面三行的代码，你调用 CommonDialog1 时都是带窗体名调用的，到这行就没带窗体名调用。

由于上面已经有 没有问题，是 MDIFrm 窗体的对话框控件，那么当前窗体是不是有这个控件？直接 CommonDialog1.FileName 有可能出错，应该是 。
另外检查 BichTextBox1 控件，检查你的界面有没有这个 BichTextBox1 控件，或名称书写错误。

如何修改？

Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
If 关闭父窗体 = False Then
If Len(Me.RichTextBox1.Text) <> "" Then
Dim choice As Integer
choice = MsgBox("是否保存" & Me.Caption & "", 51, Me.Caption)
Select Case choice
    Case 6  '保存
     = "保存"
     = 2
    If Len() <> "" Then
    Me.RichTextBox1.SaveFile ()   '这个括号内应该是  不是 CommonDialog1.FileName
    Unload SearchingAndExchange    '不知道这个 SearchingAndExchange 是否是一个窗体
    End If
    choice = 0
    Case 7   '关闭
    Unload SearchingAndExchange    '不知道这个 SearchingAndExchange 是否是一个窗体
    Unload Me
    Case 2  '取消
'以下代码看不到，不知道是什么，无法修改

在当前窗体打开时，MDIFrm窗体也应该是打开的，最起码是隐藏的，不是关闭的。

好的，谢谢