Función MsgBox

Muestra un diálogo que contiene un mensaje y devuelve un valor.

Sintaxis:


MsgBox (Prompt As String [,Buttons = MB_OK [,Title As String]]) As Integer

Parámetros:

prompt: Cadena de texto que se muestra como mensaje en el diálogo. Los saltos de línea se pueden insertar con Chr$(13).

títle: Cadena de texto que se muestra en la barra de título del diálogo. Si se omite, la barra de título muestra el nombre de la aplicación respectiva.

buttons: Entero que especifica el número y tipo de botones que se mostrarán y el tipo de icono. buttons representa una combinación de patrones de bits, es decir, se puede definir una combinación de elementos sumando sus respectivos valores:

Constante con nombre	Valor entero	Definición
MB_OK	0	Mostrar solo el botón «Aceptar».
MB_OKCANCEL	1	Mostrar los botones «Aceptar» y «Cancelar».
MB_ABORTRETRYIGNORE	2	Mostrar los botones «Interrumpir», «Reintentar» e «Ignorar».
MB_YESNOCANCEL	3	Mostrar los botones «Sí», «No» y «Cancelar».
MB_YESNO	4	Mostrar los botones «Sí» y «No».
MB_RETRYCANCEL	5	Mostrar los botones «Reintentar» y «Cancelar».
MB_ICONSTOP	16	Añadir el icono de parada crítica al diálogo.
MB_ICONQUESTION	32	Añadir el icono de pregunta al diálogo.
MB_ICONEXCLAMATION	48	Añadir el icono del signo de exclamación al diálogo.
MB_ICONINFORMATION	64	Añade el icono de información al diálogo.
	128	El primer botón del diálogo es el predeterminado.
MB_DEFBUTTON2	256	El segundo botón del diálogo es el predeterminado.
MB_DEFBUTTON3	512	El tercer botón del diálogo es el predeterminado.

Devuelve tipo:

Entero

Constante con nombre	Valor entero	Definición
IDOK	1	Aceptar
IDCANCEL	2	Cancelar
IDABORT	3	Interrumpir
IDRETRY	4	Reintentar
IDIGNORE	5	Ignorar
IDYES	6	Sí
IDNO	7	No

Códigos de error:

5 Llamada a procedimiento no válida

Ejemplo:


Sub ExampleMsgBox
Dim sVar As Integer
 sVar = MsgBox("Acaxochitlán")
 sVar = MsgBox("Acaxochitlán",1)
 sVar = MsgBox( "Acaxochitlán",256 + 16 + 2,"Título del diálogo")
 sVar = MsgBox("Acaxochitlán", MB_DEFBUTTON2 + MB_ICONSTOP + MB_ABORTRETRYIGNORE, "Título del diálogo")
End Sub