Private Sub cmdExitDatabase_Click()
Dim msg As String
'Ask user if they want to run the macro.
msg = msg & "Are You Sure You Want To Run This Macro?"
If MsgBox(msg, vbYesNo, "User Information!") = vbYes Then
MsgBox "TITLE", , "YOUR_MESSAGE"
'Run the macro...