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