Заголовок



If vbCancel = MsgBox("Вы хотите выйти из программы ?", vbOKCancel + vbQuestion, "Сообщение") Then
      Exit Sub
End If



MsgBox "ЗначениеПеременной1=" & Переменная1 & ", ЗначениеПеременной2=" & Переменная2