1.創建Dictionary
Set dict = CreateObject("Scripting.Dictionary")
2.增加項目
dict.Add "A", 300
dict.Add "B", 400
dict.Add "C", 500
另外，使用dict.item(key)=value，如果dict中沒有關鍵字key，會自動添加key:value對。
3.刪除項目
dict.Remove("A")//刪除key指定的元素
dict.RemoveAll()//刪除所有的鍵值對
3.判斷關鍵字是否存在
dict.exists("A")//如果存在，返回true，否則返回false
4.遍歷
dict.keys()//返回包含所有key的數組
dict.Items()//返回包含所有value的數組
使用for循環實現遍歷
5.聲明
有時候會將字典變量當做全局變量（多個過程共用），字典屬於Object類型，因此需要這樣聲明：
Dim dict As Object
然后再過程中對dict進行創建或初始化：
Set dict = CreateObject("Scripting.Dictionary")
6.參數傳遞
例如一個向dict中添加元素的自定義方法，可以這樣聲明
addDict(dict As Variant)