VBA 字典 (Dictionary)

Dim datas
Set datas = CreateObject("Scripting.Dictionary")

datas.add "Name", "QQQ"
datas.add "Birthday", "1911/1/1"

For Each key In datas.KEYS
    MsgBox key & "=>" & datas.Item(key)
Next

Reference :
VBA中Dictionary对象使用小结 - 日积月累 - 博客大巴
TechBookReport - VBA Dictionary Object