Urgent - Interface doesn't implement class

[Mindcrime]

I have a Client set up in one VB app to use a object being run in a separate VB app.

The client passes execution to the Interface, but the Class is never accessed. Could someone tell me why?

Thanks in advance.

This is the client code

Option Explicit
Private Sub Command1_Click()
Dim objComp As Object

    Set objComp = CreateObject("TSTestComp.IComp")
    
    Debug.Print objComp.Name
End Sub

This is the interface code being run separately called IComp. The instancing is set to MultiUse.

Property Get Name() As String
'
End Property
Property Let Name(ByVal vNewValue As String)
'
End Property
Property Get Version() As Variant
'
End Property
Property Let Version(ByVal vNewValue As Variant)
'
End Property

This is the class code being run separately called CComp.The instancing is set to PublicNotCreatable.

Implements IComp
Private Name As String
Private Property Let IComp_Name(ByVal RHS As String)
    Debug.Print "Hello World"
End Property
Private Property Get IComp_Name() As String
    Debug.Print "Hello World"
End Property
Private Property Let IComp_Version(ByVal RHS As Variant)
    Debug.Print "Hello World"
End Property
Private Property Get IComp_Version() As Variant
    Debug.Print "Hello World"
End Property