Eigenen Event auslösen - was mach ich falsch?

Public Event Report(Str As String)
Private Sub Class_Initialize()
End Sub
Private Sub Class_Terminate()
End Sub
Sub Test()
MsgBox "Starte nun Event"
RaiseEvent Report("Test")
End Sub

Option Explicit
Private WithEvents SAP As qpSAP
Sub Testsub()
Dim SAP As New qpSAP
SAP.Test
Set SAP = Nothing
End Sub
Private Sub SAP_Report(Str As String)
MsgBox "Event gestartet"
End Sub