VBA in Excel, Exit Button

Sub Button12_Click()

Dim answer As Integer

answer = MsgBox("Are you sure to Exit?", vbYesNo + vbQuestion, "Exit")

    If answer = vbYes Then

    ThisWorkbook.Save

    Application.Quit

    End If

End Sub