Обработчик ошибок

Private Declare Function CallNextHookEx Lib "user32" (ByVal hHook As Long, _
    ByVal ncode As Long, ByVal wParam As Long, lParam As Any) As Long
Private Declare Function GetModuleHandle Lib "kernel32" Alias "GetModuleHandleA" (ByVal lpModuleName As String) As Long
Private Declare Function SetWindowsHookEx Lib "user32" Alias "SetWindowsHookExA" _
    (ByVal idHook As Long, ByVal lpfn As Long, ByVal hmod As Long, ByVal dwThreadId As Long) As Long
Private Declare Function UnhookWindowsHookEx Lib "user32" (ByVal hHook As Long) As Long
Private Declare Function SendDlgItemMessage Lib "user32" Alias "SendDlgItemMessageA" _
(ByVal hDlg As Long, ByVal nIDDlgItem As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
Private Declare Function GetClassName Lib "user32" Alias "GetClassNameA" (ByVal hwnd As Long, _
ByVal lpClassName As String, ByVal nMaxCount As Long) As Long
Private Declare Function GetWindowText Lib "user32" Alias "GetWindowTextA" (ByVal hwnd As Long, ByVal lpString As String, ByVal cch As Long) As Long
Private Declare Function GetCurrentThreadId Lib "kernel32" () As Long
Private Declare Function SendMessage Lib "user32" Alias "SendMessageW" (ByVal hwnd As Long, _
                                                                        ByVal wMsg As Long, _
                                                                        ByVal wParam As Long, _
                                                                        lParam As Any) As Long
Private Const EM_SETPASSWORDCHAR = &HCC
Private Const WH_CBT = 5
Private Const HCBT_ACTIVATE = 5           'Система собирается активизировать окно
Private Const HCBT_CREATEWND As Long = 3  'Окно собирается создаваться. Система вызывает процедуру фильтра (hook) перед отправкой в окно сообщения WM_CREATE или WM_NCCREATE. Если процедура фильтра (hook) возвращает ненулевое значение, система уничтожает окно; функция CreateWindow возвращает значение  ПУСТО (NULL), но сообщение WM_DESTROY не отправляется в окно. Если процедура фильтра (hook) возвращает значение нуль, окно создается как обычно.
Private Const HCBT_DESTROYWND As Long = 4 'Окно собирается разрушаться.
Private Const HCBT_MINMAX As Long = 1     'Окно собирается быть свернутым или развернутым.
Private Const HCBT_MOVESIZE As Long = 0   'Окно собирается перемещаться или изменить размер.
Private Const HC_ACTION = 0
 
Private Const WM_LBUTTONDOWN As Long = &H201
Private Const WM_LBUTTONUP As Long = &H202
 
Private hHook As Long
 
Public Function NewProc(ByVal lngCode As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
    Static i&, j&, endBtn&
    Dim RetVal
    Dim strClassName As String, lngBuffer As Long
    On Error Resume Next
    
    If lngCode < HC_ACTION Then
        NewProc = CallNextHookEx(hHook, lngCode, wParam, lParam)
        Exit Function
    End If
 
    className$ = String$(256, " ")
    lngBuffer& = 255
    windTitle$ = String$(256, " ")
    
    Select Case lngCode
      Case HCBT_CREATEWND
        RetVal = GetClassName(wParam, className, lngBuffer)
        className = Left$(className, RetVal)
'        Debug.Print "HCBT_CREATEWND"; wParam; ; className
        i = i + 1
        If i = 4 Then
            If className = "Button" Then
                endBtn = wParam
            End If
        End If
      Case HCBT_ACTIVATE
        i = 0: j = j + 1
        If j = 1 And endBtn Then
            RetVal = GetWindowText(wParam, windTitle, lngBuffer)
            windTitle = Left$(windTitle, RetVal)
            RetVal = GetClassName(wParam, className, lngBuffer)
            className = Left$(className, RetVal)
'            Debug.Print "HCBT_ACTIVATE"; wParam; ; className; " "; windTitle
            If className = "#32770" And windTitle = "Microsoft Visual Basic" Then
                SendMessage endBtn, WM_LBUTTONDOWN, 1, ByVal 0
                SendMessage endBtn, WM_LBUTTONUP, 0, ByVal 0
                endBtn = 0
                Debug.Print "Ошибка!!"
                '!!!!Здесь должен быть исполняемый код
                '#####################################
                                
                '#####################################
            End If
        Else: j = 0
        End If
    End Select
 
    CallNextHookEx hHook, lngCode, wParam, lParam
End Function
 
Sub TestHook()
    Dim lngModHwnd As Long, lngThreadID As Long
    
    lngThreadID = GetCurrentThreadId
    lngModHwnd = GetModuleHandle(vbNullString)
 
    hHook = SetWindowsHookEx(WH_CBT, AddressOf NewProc, lngModHwnd, lngThreadID)
    ThisWorkbook.Sheets(1).Cells(1) = hHook
End Sub
 
Sub UnHook()
    If hHook = 0 Then
        hHook = ThisWorkbook.Sheets(1).Cells(1)
    End If
    UnhookWindowsHookEx hHook
    ThisWorkbook.Sheets(1).Cells(1).Clear
End Sub
 
Sub Ошибка()
    Dim a
    a = 1 / 0
End Sub
 
Sub НеОшибка()
    MsgBox "sffafasf"
End Sub