unordered map в СOM, быстрая хеш-таблица, содержащая пары: уникальный ключ-значение

Sub UnorderedMap()
Dim key, value, value2, sizeU, x, arrU
'Dim U As New BedvitCOM.UnorderedMap 'раннее связывание
Dim U: Set U = CreateObject("BedvitCOM.UnorderedMap") 'позднее связывание
 
key = "key" 'ключ
value = "value" 'значение
If Not U.Insert(key, value) Then MsgBox "Элемент уже существует и не был обновлен"
If Not U.InsertOrAssign(key, value) Then MsgBox " = False (False - Элемент обновлен, True - то создан новый)"
If Not U.Find(key, value2) Then MsgBox "Не удалось найти элемент" 'выводим найденный результат по ключу
If Not U.Erase(key) Then MsgBox "Не удалось удалить элемент" 'очистка элемента по ключу
 
x = U.RangeSet(Range("a1:b5").value) 'x - количество загруженных элементов в map (первый дубликат)
x = U.RangeGet(arrU, 1) 'x - количество выгруженных элементов в массив '1-нижняя граница массива
Range("c1").Resize(x, 2) = arrU
 
Debug.Print U.Size 'количество элементов контейнера
U.Clear 'очистить весь контейнер
End Sub