Public Sub myMethode(ByVal iId As String, ByRef iArray As Variant, Optional ByRef iObject As Object)
    Dim log As Log4vba: Set log = myLogger.startMethode("myMethode", iId, iArray, iObject)
    Dim nextId As Long
    Dim dividend As Long
On Error GoTo Err_Handler

    'Eine Variabel auswerten
    nextId = iId + 1
    log.debugValue "Nächste ID", nextId
    log.debugValue "übergebener Array", iArray

    'Und jetzt ein passiert ein Fehler. Der 11er wird abgefangen
    dividend = 0
    If dividend = 0 Then log.warning "Achtung, Dividend muss definiert werden", "test()", , 11, eprFrmtSourceExtend
    nextId = iId / dividend
    
    'Und noch ein Fehler. Der 94 nicht
    nextId = iId / Null
    
    Exit Sub
    
Err_Handler:
    'Division by zero -> Ersetzen mit Division durch 1
    If Err.number = 11 Then
        log.info Err
        dividend = 1
        Resume
    End If
    'Restliche Fehler als Fehler behandeln
    Debug.Assert log.error(Err)
End Sub