On Error - обрабатываем ошибки

В начале кода:

Sub Initialize
- On Error Goto label1
..... скрипт
Exit Sub
label1:
    Print "Ошибка: " & Error(Err) & " в строке " & Erl
    Resume Next  '  если надо вернуться в скрипт
End Sub