Quit method example

Sub Quit_Example()
    Dim msg As String, title As String
    Dim Responce As VbMsgBoxResult
    msg = "Really want to quit?"
    title = "Quit Method Example"
    Responce = MsgBox(msg, vbYesNo, title)
    If Responce = vbYes Then
        ThisDrawing.Application.Quit
    End If
End Sub