<ComVisible(True)> _
    Public Sub Msg()
        MsgBox("Dies ist eine Message aus .NET")
    End Sub

Dim Control1 As MyDotNetClass.UserControl1
 
Private Sub Command1_Click()
    Set Control1 = New MyDotNetClass.UserControl1
    Control1.Msg
End Sub