Función MsgBox

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

Sintaxis:

MsgBox (Texto As String [,Tipo As Integer [,TítuloDiálogo As String]])

Valor de retorno:

Entero

Parámetros:

Texto: Expresión de cadena que se muestra como mensaje en el cuadro de diálogo. Se pueden insertar saltos de línea con Chr$(13).

TítuloDiálogo: Expresión de cadena que se muestra en la barra de título del diálogo. Si se omite, se muestra el nombre de la aplicación correspondiente.

Tipo: Cualquier expresión entera que especifique el tipo de diálogo y defina el número y tipo de botones o iconos que se muestran. Tipo representa una combinación de patrones de bits (los elementos del diálogo se definen al añadir los valores correspondientes):

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_ABORTRETRYCANCEL	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 cuadro de diálogo.
MB_ICONQUESTION	32	Añadir el icono de pregunta al cuadro de diálogo.
MB_ICONEXCLAMATION	48	Añadir el icono del signo de exclamación al cuadro de diálogo.
MB_ICONINFORMATION	64	Añade el icono de información al cuadro de diálogo.
	128	El primer botón del cuadro de diálogo es el predeterminado.
MB_DEFBUTTON2	256	El segundo botón del cuadro de diálogo es el predeterminado.
MB_DEFBUTTON3	512	El tercer botón del cuadro de diálogo es el predeterminado.

Valor de retorno:

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 cuadro de diálogo")

 sVar = MsgBox("Acaxochitlán", MB_DEFBUTTON2 + MB_ICONSTOP + MB_ABORTRETRYCANCEL, "Título del cuadro de diálogo")

End Sub