Probleme mit Klassen

Public Sub Fehler_notieren(Vorgang As String, ErrMeldung As String, ErrNummer As String)
'nächste Meldung ab Zeile:
neueZeile = ActiveWorkbook.Sheets("System").Cells(Rows.Count, 1).End(xlUp).Row + 1
'einfügen
ActiveWorkbook.Sheets("System").Cells(neueZeile, 1).Value = Now()
ActiveWorkbook.Sheets("System").Cells(neueZeile, 2).Value = Vorgang
ActiveWorkbook.Sheets("System").Cells(neueZeile, 3).Value = ErrNummer
ActiveWorkbook.Sheets("System").Cells(neueZeile, 4).Value = ErrMeldung
End Sub

Private Sub Test()
Dim Fehler As clsErrorHandling
On Error GoTo Err
Exit Sub
Err:
Set Fehler = New clsErrorHandling
Fehler.Fehler_notieren("Sub Test", err.Description, err.Number)
Exit Sub
End Sub