Option Explicit
 
Private WithEvents c As ComTest1.ComClass1
 
Private Sub c_SomeEvent(ByVal i As Long)
    Debug.Print "i=" & i
End Sub
 
Private Sub Form_Load()
    Set c = New ComTest1.ComClass1
    Debug.Print c.someInt(3, "The value is: ")
    c.OnSomeEvent 22
End Sub

Option Strict On
<ComClass("0A422D13-76C3-4C4B-AF89-394303CDAF09", _
    "A053AE56-04C7-4E47-A0DF-6FC95389D2BA", _
    "044C41AF-E15E-4026-BE4D-F57C5D099F68")> _
Public Class ComClass1
 
    Public Sub New()
        MyBase.New()
    End Sub
 
    Public Event SomeEvent(ByVal i As Integer)
 
    Public Function someInt(ByVal multBy As Integer, ByVal msg As String) As _
      String
        Dim val As Integer = 123 * multBy
        Return msg + val.ToString()
    End Function
 
    Public Sub OnSomeEvent(ByVal i As Integer)
        RaiseEvent SomeEvent(i)
    End Sub
 
End Class

________
Alle Angaben ohne Gewähr. Keine Haftung für Vorschläge, Tipps oder sonstige Hilfe, falls es schiefgeht, nur Zeit verschwendet oder man sonst nicht zufrieden ist