Свойство класса как экземпляр другого класса VBA

Question

Есть ли способ, которым я могу установить свойство класса в качестве экземпляра другого класса? Пока что я могу получить доступ к каждому свойству из моего DealStatCls, но не могу получить доступ к своим MainCls в модуле. Я предполагаю, что моя ошибка где-то в установке свойств.

Это будет мой MainCls

Private pDealStatus As DealStatCls

    Private Sub Class_Initialize()
     Set pDealStatus = New DealStatCls
    End Sub

    Property Let DealStatus(value As DealStatCls)
        pDealStatus = value
    End Property
    Property Get DealStatus() As DealStatCls
        DealStatus = pDealStatus
    End Property

Это будет мой DealStatCls

Private pActive As Integer

Public Property Let Active(value As Integer)
    If IsEmpty(pActive) Then
        pActive = value
    Else
        pActive = pActive + value
    End If
End Property
Public Property Get Active() As Integer
    Active = pActive
End Property