Сообщение закрыть программу “Да” “Нет”

[segail]

При клике по кнопке CommandButton2 выходит сообщение закрыть программу ”Да” ”Нет”
При клике Да необходимо выполнить действии Unload Me а при клике Нет закрыть сообщение.
У меня закрывает программу при клике ”Да” и ”Нет” Дополните код.

Private Sub CommandButton2_Click()
MsgBox "Данные сохранены. Закрыть программу?", 32 + 4, "Закрытие программы"
Unload Me
End Sub

 

[alex77755]

Можно так. Только не разобрался с подсветкой кода??
<!--shcode--><pre><code class='VBA'>Private Sub Комманда1_Click()

Dim Вопрос

Вопрос = MsgBox("Данные сохранены. Закрыть программу?", 32 + 4, "Закрытие программы")

Select Case Вопрос
Case 6
Unload Me
End Select

End Sub[/CODE]