With MyDictionary
    .Add CStr(1), "number"
    .Item("1") = "text"
End With

Select all