「変更を保存しますか」ダイアログを非表示にして ArcMap を終了する方法

Sub test()
    Dim pDocumentDirty2 As IDocumentDirty2
    Set pDocumentDirty2 = ThisDocument
    
    pDocumentDirty2.SetClean

   Application.Shutdown

End Sub