VBA Да без коробки
Dim answer As Integer
answer = MsgBox("Text", vbQuestion + vbYesNo + vbDefaultButton2, "Message Box Title")
If answer = vbYes Then
MsgBox "Yes"
Else
MsgBox "No"
End If
Muddy Moose