ТМС:Кассир:MsgBox

обертка над Application.MessageBox.

Константы, использующиеся при вызове MsgBox

 MB_OK                 - кнопка OK
 MB_OKCANCEL           - кнопки OK, CANCEL
 MB_ABORTRETRYIGNORE   - кнопки ABORT, RETRY, IGNORE
 MB_YESNOCANCEL        - кнопки YES, NO, CANCEL
 MB_YESNO              - кнопки YES, NO
 MB_RETRYCANCEL        - кнопки RETRY, CANCEL
 MB_ICONERROR          - иконка ERROR (ошибка)
 MB_ICONQUESTION       - иконка QUESTION (вопрос)
 MB_ICONWARNING        - иконка WARNING (внимание)
 MB_ICONINFORMATION    - иконка INFORMATION (информация)
 MB_DEFBUTTON1         - кнопка по умолчанию 1
 MB_DEFBUTTON2         - кнопка по умолчанию 2
 MB_DEFBUTTON3         - кнопка по умолчанию 3
 MB_DEFBUTTON4         - кнопка по умолчанию 4
 ID_OK                 - код возврата OK
 ID_CANCEL             - код возврата CANCEL
 ID_ABORT              - код возврата ABORT
 ID_RETRY              - код возврата RETRY
 ID_IGNORE             - код возврата IGNORE
 ID_YES                - код возврата YES
 ID_NO                 - код возврата NO
 ID_CLOSE              - код возврата CLOSE

Пример

  if MsgBox('Продолжить?', 'Расчет', MB_OKCANCEL + MB_ICONQUESTION) = ID_CANCEL then Exit;