定義字典數組（VBA）

Set dict(0) = CreateObject("Scripting.Dictionary")

Set dict(1) = CreateObject("Scripting.Dictionary")

dict(0).Add "test", "www.baidu.com"

dict(1).Add "test2", "vb"

MsgBox dict(0)("test") & vbCrLf & dict(1)("test2")