程序结束时出错,从来没遇到!请帮忙想想办法!

Private Sub mnuExit_Click()
On Error Resume Next    Dim response As Integer
    response = MsgBox("你想退出系统吗？？", vbYesNo + vbQuestion, "提示")
    If response = vbNo Then Exit Sub
    End
End Sub执行结果是,退出了程序 但是Windows系统信息!标题"房屋中介系统.exe - 应用程序错误""0x089902b3指令引用的0xc0a19b04内存.该内存不能为"written",要终止应用程序,单击"确定""