'*********************************************************
' wshMsgBox
'
' Esta función es una alternativa a la función MsgBox de
' Visual Basic. Aunque se ganan dos nuevas opciones, 
' también se pierden las de mostrar un fichero de ayuda
' y el número de tópico.
'
' Argumentos
'    Prompt: Requerido. Una cadena que representa en 
'    mensaje de wshMsgBox. Hay que hacer notar que a 
'    partir de la versión 2000 de Access, el mensaje de
'    un MsgBox de VB tiene la limitación de 1024 
'    caracteres, pero con esta función no existe esa
'    limitación.
'    SecondsToWait: Opcional. Número de segundos que el
'    wshMsgBox permanecerá en pantalla para después
'    desaparecer. Sigue existiendo la opción de cerrar
'    el mensaje pulsando cualquiera de los botones
'    disponibles en ese momento.
'    Title: Opcional. Título del mensaje.
'    Buttons: Opcional. Botones e iconos del mensaje. 
'    Se indica exactamente igual que la función MsgBox
'    de Visual Basic.
'
' La función devuelve un valor VBMsgBoxResult, al igual
' que su tocaya de VB.
'
Function wshMsgBox( _
                Prompt As String, _
                Optional SecondsToWait, _
                Optional Title, _
                Optional Buttons) As VbMsgBoxResult
            
Dim wShell As Object 'New wshShell

    Set wShell = CreateObject("WScript.Shell")
    wshMsgBox = wShell.PopUp( _
              Prompt, SecondsToWait, Title, Buttons)
    Set wShell = Nothing

End Function
'*********************************************************