Простой обработчик ошибок

Перед рассмотрением сложного обработчика ошибок приведем простой пример:

Sub Demo ( )

Dim I as Integer

On Error GoTo ErrorHandler

' Программная ошибка в этой строке кода. ExitHere:

Exit Sub ErrorHandler:

MsgBox "An error occurred"

Resume ExitHere

End Sub

Данный простой обработчик ошибок следует обычным программным соглашениям, которые описаны далее.