---

Sub
ПримерМодификации ( )
Dim userResponse As Long
userResponse = MsgBox ("Добро пожаловать
в систему!"
, vbYesNo + vbQuestion, "Окно
сообщения")
userResponse = bYes Then
MsgBox "Вы нажали кнопку Да",
vbInformation, "Ваш выбор"
Else
MsgBox "Вы нажали кнопку НЕТ",
vbCritical, "Ваш выбор"
End If
End Sub