Exemplos
msgbox Yes No | Area | Media |
... | ... |
Sub Button3_Click()
msg = " Quer continuar ?"
estilo = vbYesNo + vbExclamation + vbDefaultButton1
titulo = "erro"
resposta = MsgBox(msg, estilo, titulo)
If resposta = vbYes Then
msg = " A escolha foi Yes"
Else
msg = " A resposta foi no"
End If
MsgBox msg
End Sub