>>480の汎用的な解ができたよー

【標準モジュール】
Public Function ObjectWrapper(ByRef ObjectRef As Object, Optional ByRef ParentWrapper As ObjectWrapperClass = Nothing) As ObjectWrapperClass
　 Dim wrapper As ObjectWrapperClass
　 Set wrapper = New ObjectWrapperClass
　 Set wrapper.Ref = ObjectRef
　 Set wrapper.Parent = ParentWrapper
　 Set ObjectWrapper = wrapper
End Function

【クラスモジュール : ObjectWrapperClass】
Private m_ref As Object
Private m_parent As ObjectWrapperClass

Public Property Set Ref(ByRef ObjectRef As Object)
　 Set m_ref = ObjectRef
End Property
Public Property Get Ref() As Object
　 Set Ref = m_ref
End Property

Public Property Set Parent(ByRef ObjectWrapper As ObjectWrapperClass)
　 Set m_parent = ObjectWrapper
End Property
Public Property Get Parent() As ObjectWrapperClass
　 Set Parent = m_parent
End Property

Public Property Get Self() As Object
　 Set Self = Me
End Property