Introduction
Text Documents (Writer)
HTML Documents (Writer Web)
Spreadsheets (Calc)
Presentations (Impress)
Drawings (Draw)
Database Functionality (Base)
Formulae (Math)
Charts and Diagrams
Macros and Scripting
Office Installation
Common Help Topics
OneOffice Logo

MsgBox Function

Displays a dialogue box containing a message and returns a value.

Syntax:


MsgBox (Prompt As String [,Buttons = MB-OK [,Title As String]]) As Integer

Parameters:

prompt: String expression displayed as a message in the dialogue box. Line breaks can be inserted with Chr$(13).

title: String expression displayed in the title bar of the dialogue box. If omitted, the title bar displays the name of the respective application.

buttons: Any integer expression that specifies the dialogue box type, as well as the number and type of buttons to display, and the icon type. buttons represents a combination of bit patterns, that is, a combination of elements can be defined by adding their respective values:

Named constant Integer value Definition
MB-OK 0 Display OK button only.
MB-OKCANCEL 1 Display OK and Cancel buttons.
MB-ABORTRETRYIGNORE 2 Display Abort, Retry, and Ignore buttons.
MB-YESNOCANCEL 3 Display Yes, No, and Cancel buttons.
MB-YESNO 4 Display Yes and No buttons.
MB-RETRYCANCEL 5 Display Retry and Cancel buttons.
MB-ICONSTOP 16 Add the Stop icon to the dialog.
MB-ICONQUESTION 32 Add the Question icon to the dialog.
MB-ICONEXCLAMATION 48 Add the Exclamation Point icon to the dialog.
MB-ICONINFORMATION 64 Add the Information icon to the dialog.
128 First button in the dialog as default button.
MB-DEFBUTTON2 256 Second button in the dialog as default button.
MB-DEFBUTTON3 512 Third button in the dialog as default button.

Return value:

Integer

Named constant Integer value Definition
IDOK 1 OK
IDCANCEL 2 Cancel
IDABORT 3 Abort
IDRETRY 4 Retry
IDIGNORE 5 Ignore
IDYES 6 Yes
IDNO 7 No

Error codes:

5 Invalid procedure call

Example:


Sub ExampleMsgBox
Dim sVar As Integer
 sVar = MsgBox("Blackpool")
 sVar = MsgBox("Blackpool",1)
 sVar = MsgBox("Blackpool",256 + 16 + 2,"Dialog Title")
 sVar = MsgBox("Las Vegas", MB-DEFBUTTON2 + MB-ICONSTOP + MB-ABORTRETRYIGNORE, "Dialogue box title")
End Sub