Загрузка данных

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