У меня есть массив, и в течение цикла я вставляю строку данных в словарь, а затем добавляю каждый словарь в массив.

Моя установка такова:

while something

    Dim MyDict as new Scripting.Dictionary
    MyDict.RemoveAll


    'Add data
    MyDict.add "something","something"


    If Count = 0 Then
        ReDim MyArray(0)
    Else
        ReDim Preserve MyArray(UBound(MyArray, 1) + 1)
    End If

    'Add the dictionary to the array of dictionaries
    Set MyArray(UBound(MyArray, 1)) = MyDict

wend

Однако в конце цикла while весь массив словарей указывает на один и тот же словарь - последний. Я подумал, объявив словарь в цикле while и используя New вместе с removeall, я бы избежал этого ....

Как мне убедиться, что каждый словарь - это не просто ссылка на последний вставленный?