Как очистить глобальную переменную с моим Type - VB

Формулировка задачи:

Господа!
Я тут решил от безделья поэкспериментировать, и столкнулся с одной интересной ситуацией.
Задача такая - создать пользовательский объект, одной процедурой присвоить значения свойствам, а второй использовать их.
Проясните один момент:
Создал пользовательский тип "свойства" в модуле, объявил перемеренную модуля obj , присвоил значения свойствам через процедуру setProperty , а через функцию Getpropetry я обратился к свойствам этого класса.
Все бы хорошо, но очистить эту переменную я не могу.
Собственно в этом вопрос -

как очистить глобальную переменную пользовательского типа (Type) ? Возможно можно "обнулить" свойства этого класса? Подумываю через цикл это делать, но возможно есть более простой способ.

Если реализовывать это метод через встроенный Class эксель - нет проблем, через set..= nothing, а в примере ниже не могу это сделать. Не дает использовать Set (object recuired), максимум что я могу, передать другой переменной значение свойств этого типа, не не сам тип.
Пример:

Private obj As свойства
Private Newobj As Object
set Newobj =  obj.коллекция ' могу
set Newobj =  obj 'не могу, ругается

Код для понимания

Type объекты
    объект As Object
    коллекция As Collection
    End Type
    
    Type свойства
    Имя As String
    Значение As Variant
    ВложенныйТип As объекты
    End Type

Private obj As свойства

Sub Getpropetry()
setProperty
MsgBox "значение - " & obj.Имя
MsgBox "Значение первой ячейки акт. листа - " & obj.Значение
MsgBox "объект из коллекции, имя - " & obj.ВложенныйТип.коллекция("actSheet").name
MsgBox "объект как свойство типа, имя - " & obj.ВложенныйТип.объект.name
'Set obj = Nothing 'ругается!!!object recuired
End Sub

Sub setProperty()
With obj
.Имя = "name"
Set .ВложенныйТип.коллекция = collectoins
Set .ВложенныйТип.объект = ThisWorkbook
.Значение = ActiveSheet.Cells(1, 1).Value
End With
End Sub

Function collectoins() As Collection
Dim col As New Collection
col.Add ActiveSheet, "actSheet"
Set collectoins = col
End Function

Решение задачи: «Как очистить глобальную переменную с моим Type»

textual
                            Листинг программы 
                        

                            Private DefaultObj As свойства

Sub Getpropetry()
 ...
 'Set obj = Nothing 'ругается!!!Object required
 obj = DefaultObj
End Sub

                        