VBA How To Use MsgBox

MsgBox is used to display a message in a dialog box, waits for the user to click a button, and returns an Integer indicating which button the user clicked. It is normally used for below 2 reasons:

1. Display an error message
2. Managing exception according to user preferences

Syntax:

MsgBox(prompt[, buttons] [, title] [, helpfile, context])

Where:

prompt - mandatory. displayed as the message in the dialog box

buttons - Optional. If omitted, the default value for buttons is 0

title - Optional. Displayed in the title bar of the dialog box. If omitted, the application name is placed in the title bar

helpfile - Optional. Rarely used

context - Optional. Rarely used

The buttons setting as follow:

Constant	Value	Description
vbOKOnly	0	Display OK button only.
vbOKCancel	1	Display OK and Cancel buttons.
vbAbortRetryIgnore	2	Display Abort, Retry, and Ignore buttons.
vbYesNoCancel	3	Display Yes, No, and Cancel buttons.
vbYesNo	4	Display Yes and No buttons.
vbRetryCancel	5	Display Retry and Cancel buttons.
vbCritical	16	Display Critical Message icon.
vbQuestion	32	Display Warning Query icon.
vbExclamation	48	Display Warning Message icon.
vbInformation	64	Display Information Message icon.
vbDefaultButton1	0	First button is default.
vbDefaultButton2	256	Second button is default.
vbDefaultButton3	512	Third button is default.
vbDefaultButton4	768	Fourth button is default.
vbApplicationModal	0	Application modal; the user must respond to the message box before continuing work in the current application.
vbSystemModal	4096	System modal; all applications are suspended until the user responds to the message box.
vbMsgBoxHelpButton	16384	Adds Help button to the message box
VbMsgBoxSetForeground	65536	Specifies the message box window as the foreground window
vbMsgBoxRight	524288	Text is right aligned
vbMsgBoxRtlReading	1048576	Specifies text should appear as right-to-left reading on Hebrew and Arabic systems

The code:

Sub TestMsg()
MsgBox "Please display a message", , "Message Test"
End Sub

Sub TestMsg()
MsgBox "Please display a message", 1, "Message Test"
End Sub

Sub TestMsg()
MsgBox "Please display a message", 2, "Message Test"
End Sub