Application VisualBasic Script

Sub quit()
    Application.Quit
End Sub