Option Explicit

'Der Klasenlogger
Private classLogger As Log4vba

'/**
' * Initialisieren des Objektes. Hier wird auch der Klassenlogger serstellt
' */
Private Sub Class_Initialize()
    Set classLogger = myLogger.startClass(Me)
End Sub

' * Eine Trstfunktion
' * @param  Long    Eine Zahl
' */
Public Sub runTest(ByVal iValue As Long)
    'Den Methodenlogger aus dem Klassenlogger erstellen
    Dim log As Log4vba: Set log = classLogger.startMethode("runTest", iValue)
On Error GoTo Err_Handler
    
    'Eine beliebige Info loggen
    log.info "Jetzt folgt dann gleich ein Fehler"
    
    'En Fehler generieren
    Debug.Print iValue / 0
    
    Exit Sub
Err_Handler:
    'Fehler loggen
    log.error Err
End Sub