Tratamiento de errores: ¿Cómo lo desactivo?

Option Compare Database
Option Explicit

Sub test()

    On Error GoTo LinErr

    On Error GoTo 0
'    Err.Clear
    
    Err.Raise 94

    Exit Sub
  
LinErr:
    On Error GoTo -1
'    Err.Clear
    Debug.Print "Error" & Space(25 - Len("Error")) & ": " & Err.Number

End Sub