Работа с коллекциями

[ЯИмя]

Проблема следующая.

В ВБА(Эксель) я создал 2 модуля класса.
Одним из свойств первого класса является коллекция, в которую входят объекты второго класса.
Объекты первого класса, в свою очередь, образуют ещё одну (назовём её главной) коллекцию.
Запускаю заполнение главной коллекции.
На её основе мне нужно создать ещё одну коллекцию, которая будет содержать некоторые элементы главной коллекции с изменёнными свойствами.
Так вот.
Когда я меняю свойства у элементов новой коллекции, они меняются и у соответствующих элементов главной коллекции...
Не уверен, что хоть кто-то поймёт эту муть, попробую выложить здесь упрощённый код:

Примерно так:
Модули класса:
Класс Mark

Public Ord As String 
Public Nam As String 
Public Dias As New Collection

Класс Dia

Public Size As Single 
Public Mar As Single 
Public PS As Single

Заполнение коллекции:

Dim Mark1 As New Mark 
Dim Dia1 As New Dia 
Dim Marks As New Collection 
Public Sub Fill() 
With Workbooks("Книга1.xls").Sheets("1") 
    HSh = .Rows.Count 
    LR = .Cells(HSh, 1).End(xlUp).Row 
    NRow = .Cells(1, 1).End(xlDown).Row 
    For i = NRow To LR Step 5 
        Set A = New Mark 
        For j = i To i + 4 
            Dia1.Size = .Cells(j, 5).Value 
            Dia1.Mar = .Cells(j, 6).Value 
            Dia1.PS = .Cells(j, 7).Value 
            Mark1.Dias.Add Item:=Dia 
            Set Dia = Nothing 
        Next j 
        Mark1.Ord = .Cells(i, 1).Value 
        Mark1.Nam = .Cells(i, 2).Value 
        Marks.Add Item:=Mark1 
        Set Mark1 = Nothing 
    Next i 
End With 
End Sub

Создаю новую коллекцию:

' ... (Dim, Sub) ... 
Dim ThN = New Mark 
Ndd = InputBox1 ... 
Ndd2 = InputBox2 ... 
Ndd3 = InputBox3 ... 
'... 
    For i = 1 To Marks.Count 
        If Ndd = Marks(i).Nam Then 
            Set ThN = Marks(i) 
            j = 1 
            Do Until ThN.Dias.Count = 1 
                If Ndd2 <> ThN.Dias(j).Size Then 
                    ThN.Dias.Remove (j) 
                Else 
                    ThN.Dias(j).Mar = Ndd3 
                    j = j + 1 
                End If 
            Loop 
            ThNs.Add Item:=ThN 
            Set ThN = Nothing 
            Exit For 
        End If 
    Next i
' ...

Так вот. Когда я удаляю элемент Dia из коллекции Dias объекта ThN (ThN.Dias.Remove (j)), автоматически удаляется такой же элемент Dia из коллекции Dias объекта Mark1 (коллекции Marks).
Во как!
Как этого избежать?

[SAS888]

Как-то замудренно. А проще нельзя? Например, создать независимые коллекции, или вообще, через массивы?

[ЯИмя]

Ну, может и можно. Что замудрённо - согласен.
Если бы я знал...
А что значит независимые коллекции, эти две коллекции чем друг от друга зависят? Тем, что у них есть по одному одинаковому элементу?
Непонятно. Я же его просто приравнял...
Может быть, можно приравнять как-нибудь не по ссылке, а по значению, я не нашёл, как.
Или заблокировать каким-нибудь образом первую коллекцию от изменений на время удаления элемента из второй коллекции?

Подробнее здесь, в третьем по счёту посте.