MsgBox Instruction/Function |
Syntax:
MsgBox Message$[, Type][, Title$]
-or-
MsgBox(Message$[, Type][, Title$])
Group:
User Input
Description:
Shows a message box titled Title$. Type controls what the message box looks like (choose one value from each category). Use MsgBox( ) if you need to know what button was pressed. The result indicates which button was pressed.
Parameters:
Result |
Value |
Button Pressed |
vbOK |
1 |
OK button |
vbCancel |
2 |
Cancel button |
vbAbort |
3 |
Abort button |
vbRetry |
4 |
Retry button |
vbIgnore |
5 |
Ignore button |
vbYes |
6 |
Yes button |
vbNo |
7 |
No button |
Parameter |
Description |
This string value is the text that is shown in the message box. |
|
This numeric value controls the type of message box. Choose one value from each of the following tables. |
|
This string value is the title of the message box. |
Button |
Value |
Effect |
vbOkOnly |
1 |
OK button |
vbOkCancel |
2 |
OK and Cancel buttons |
vbAbortRetryIgnore |
3 |
Abort, Retry, Ignore buttons |
vbYesNoCancel |
4 |
Yes, No, Cancel buttons |
vbYesNo |
5 |
Yes and No buttons |
vbRetryCancel |
6 |
Retry and Cancel buttons |
Button |
Value |
Effect |
vbOkOnly |
1 |
OK button |
vbOkCancel |
2 |
OK and Cancel buttons |
vbAbortRetryIgnore |
3 |
Abort, Retry, Ignore buttons |
vbYesNoCancel |
4 |
Yes, No, Cancel buttons |
vbYesNo |
5 |
Yes and No buttons |
Icon |
Value |
Effect |
0 |
No icon |
|
vbCritical |
16 |
Stop icon |
vbQuestion |
3 |
Question icon |
vbExclamation |
4 |
Attention icon |
vbInformation |
5 |
Information icon |
Default |
Value |
Effect |
vbDefaultButton1 |
0 |
First button |
vbDefaultButton2 |
256 |
Second button |
vbDefaultButton3 |
512 |
Third button |
Default |
Value |
Effect |
vbApplicationModal |
0 |
Application modal |
vbSystemModal |
4096 |
System modal |
vbMsgBoxSetForeground |
&h10000 |
Show message box in front of all other windows |
Example:
Sub Main
MsgBox "Please press OK button"
If MsgBox("Please press OK button",vbOkCancel) = vbOK Then
Debug.Print "OK was pressed"
Else
Debug.Print "Cancel was pressed"
EndIf
EndSub