Funciones Para Presentar Mensajes

FUNCIONES PARA PRESENTAR MENSAJES
 
Hay 2 tipos de funciones para presentar mensajes, ellas son MsgBox e InputBox.

Función InputBox: La función InputBox presenta un mensaje al usuario,permitiéndole ingresar un valor en una caja de texto:
 

 
Como se dijo la función InputBox presenta un cuadro de diálogo donde el usuario puede ingresar un texto y luego aceptar o cancelar dicho cuadro dediálogo.
Los parámetros principales de esta función son:

InputBox (Promt,Title, Default)
El parámetro Prompt específica la leyenda que mostrará la caja de mensajes.
El parámetro Titleespecifica el título que llevará el cuadro de diálogo.
El parámetro Default es el texto que mostrará la caja de texto.
 
El aspecto más importante de InputBox es que nos devuelve una cadena con lo que hayaingresado el usuario en la caja de texto. Luego podemos realizar una tarea específica dependiendo del valor devuelto.

Ejemplo:

Dim retorno As String
retorno = InputBox("Ingrese algo en la cajade texto", "Ejemplo")
MsgBox "Usted ingresó:" & retorno
 En el ejemplo anterior, en la variable Retorno se almacenará el valor que haya ingresado el usuario cuando haga Click en el botón deAceptar.
Cuando el usuario presiona Candelar, el InputBox devuelve una cadena vacía. Esto es importante tenerlo en cuenta para realizar una o tal acción
Si quiseramos por ejemplo desplegar un InputBox,y que este no se cierre hasta que el usuario si o si haya ingresado un valor, podemos hacerlo de la siguiente forma, utilizando una condición en un bucle Do Loop
 
Código fuente en el formularioPrivate Sub Form_Load()
Dim Dato As String
' Hasta que no se ingrese un dato, _
el InputBox no se cerrará
Do
Dato = InputBox("Ingresar algun dato", " Ejemplo ")Loop Until Dato <> ""
'Muestra el valor
MsgBox Dato, vbInformation
End Sub

Esta es una explicación al trabajo de la guía de ayer, luego de leer esto prosiga y realice...