Dim dict

Set dict = CreateObject(“Scripting.Dictionary”)

‘第一种方法
k = dict.keys
v = dict.Items
For i = 0 To dict.Count – 1
key = k(i)
Value = v(i)
MsgBox key & Value
Next

‘第二种方法
Dim key

For Each key In dict.keys
msgbox dict(key)
Next