но я столкнулся с довольно странным поведением словаря.

Sub DictTest()
    Dim iDict As Object
    Dim i As Integer
    Dim strArr() As String
    Set iDict = CreateObject("Scripting.Dictionary")
    strArr = Split("Why does this happen ? Why does this happen over and over ?", " ")
    For i = LBound(strArr) To UBound(strArr)
        iDict(strArr(i)) = strArr(i)
    Next
End Sub

Вывод iDict заполнен 7 пунктами:Но всякий раз, когда я добавляю часы:

Добавляет пустой элемент в словарь:

Почему добавление выражения наблюдения создает пустой словарь в словаре?