Dim answer
answer = MsgBox("Вы хотите продолжить?", vbYesNo + vbQuestion, "Выбор")
If answer = vbYes Then
MsgBox "Вы выбрали 'Да'.", vbInformation, "Результат"
ElseIf answer = vbNo Then
MsgBox "Вы выбрали 'Нет'.", vbInformation, "Результат"
End If