MsgBox - Различные сообщения пользователю

Сообщение критическое (1 кнопка)

Dim Msg As String, Style As Integer, Title As String, Response As Integer

Msg = "Перегрев процессора у пользователя !!!" & vbCrLf & _

"Немедленно выключайте компьютер и отдохните 30 минут!"

Style = vbOKOnly + vbCritical + vbDefaultButton1

Title = "Внимание!"

Response = MsgBox(Msg, Style, Title)

If Response = vbOK Then

Application.Quit

End If

Или проще:

If Dir(Me!txtSRSFile) = "" Then

MsgBox "Файл исходных данных не обнаружен!", vbCritical, "Нет файла!"

Me!txtSRSFile.SetFocus

Exit Sub

End If

Вопрос (Yes - No)

'Запрос поддтверждения удаления записи при ответе НЕТ - остановка

If MsgBox("Действительно удалить ???", _

vbYesNo + vbCritical + vbDefaultButton1, _

"Удаление данных") = vbNo Then Exit Sub

'Удаление ....

Сообщение предупреждающие (OK-Cancel)

Dim intResponse As Integer 'Принимает ответ пользователя

'Вывод предупреждения - OK и ОТМЕНА

intResponse = MsgBox("Вы действительно собираетесь?", _

vbOKCancel + vbExclamation + vbDefaultButton2, "Предупреждение")

'Обработка ответа пользователя

Select Case intResponse

Case vbOK

MsgBox "Была нажата кнопка OK", vbInformation, "Ответ Пользователя"

'… Инструкции

Case vbCancel

MsgBox "Была нажата кнопка ОТМЕНА", vbInformation, "Ответ Пользователя"

'… Инструкции

End Select

Запрос данных от Пользователя:
Выводит окно для ввода данных пользователем, со значением по умолчанию "N/D" (нет данных)

Dim val As Variant

Dim Message As String, Title As String, Default As String

Message = "Ввведите Любое Значение"

Title = "Запрос данных"

Default = "N/D" 'Значение по умолчанию

val = InputBox(Message, Title, Default)

MsgBox "Пользователь ввел: " & val