1. 引用dll
Microsoft Scripting Runtime
2. 遍历字典
```
Dim dict As new dictionary
' 向字典中添加一些键值对
dict.Add "Apple", "Red"
dict.Add "Banana", "Yellow"
dict.Add "Orange", "Orange"
' 遍历字典的键和对应的值
Dim key As Variant
For Each key In dict.keys
Debug.Print "Key: " & key & ", Value: " & dict(key)
Next key