' класс A [ClassA] 
Public obj as Object

 ' ..... 

Private Sub Class_Initialize()
        Set obj = CreateObject("MyProject.CMyObject")
         ' ....... 
End Sub

 ' ..... 

Public Property Get TakeObj() As CMyObject
        Set TakeObj=obj
End Property


 ' КЛАСС Б [ClassB] 
Public Sub KillObj
        Dim MyClassA as ClassA
        Set MyClassA = new ClassA
        Dim InObj as Object
        Set InObj = MyClassA.TakeObj
        InObj = Nothing            ' уничтожается не сам объект в классе А, а ссылка InObj 
        ...
End Sub