Private WithEvents mklasse As clsKlasse
 
Private Sub Form_Load()
    Set mklasse = New clsKlasse
End Sub

    With mklasse 
        .iergendetwas = "test" 
        .starten
    End With

Private Sub mklasse _Complete(ergebnis As String)
msgbox ergebnis 
End Sub