This class cannot create object but substitution is allowed.

(Example)
Dim obj As CObject
Set obj = sampleObj