Dim Resp As VbMsgBoxResult
Resp = MsgBox(Prompt, [Buttons As VbMsgBoxStyle = vbOKOnly], [Title], [HelpFile], [Context])
Promt: Un string con la pregunta/comentario que quieras poner.
Buttons: Varias constantes sumadas para poner los botones
Title: Un string con el título que quieras poner
HelpFile: Archivo de ayuda que se abre cuando el usuario pulsa F1
Context: Un número que indica el contexto de ayuda.
Si no tienes un archivo de ayuda compilado no uses las dos últimas.
Ejemplo:
Copia y pega esto en un módulo nuevo y hazlo correr
Sub Main()
Dim Resp As VbMsgBoxResult
Resp = MsgBox ("Pulsa un botón", vbYesNoCancel + vbExclamation, "www.chapucillas.com")
Select Case Resp
Case
vbYes
MsgBox "Has pulsado SI"
Case
vbNo
MsgBox "Has pulsado NO"
Case
vbCancel
MsgBox "Has pulsado CANCEL
End Select
End Sub
Saludos
Josetxu