ник: Tip
ВЫХОДИМ ЕРЕЗ МЕНЮ ТАК:
Function ExitProgram()
Dim Msg As String, Style As Integer, Response As Integer
Msg = "Вы уверенны, что хотите выйти ?"
Style = vbYesNo + vbQuestion + vbDefaultButton1
Response = MsgBox(Msg, Style, UserName)
If Response = vbYes Then
Application.Quit
End If
End Function