---

Sub Task21()
    Dim answer As VbMsgBoxResult
    
    answer = MsgBox("Моя программа", vbYesNoCancel + vbInformation, "Сообщение")
    
    Select Case answer
        Case vbYes
            MsgBox "Нажато Да"
        Case vbNo
            MsgBox "Нажато Нет"
        Case vbCancel
            MsgBox "Нажато Отмена"
    End Select
End Sub