Пример 1.5

Error Handling Framework

On Error GoTo Sub_Error_Handler Const ERROR_MESSAGE_INFO = "This Function's name"

Part of the function that actually does something here

'~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ sub_Exit_Done: 'return success value

On Error Resume Next 'destroy objects Exit Function

Sub_Error_Handler: ProcessErr "message about the failure in terms of function"