'' 変数宣言
Dim list As Object
'' リストオブジェクト作成
Set list = CreateObject("Scripting.Dictionary")
'' キー、値追加
list.add "key", "value"
'' キーを指定して、値を参照
list("key")
'' 件数
list.Count
'' 指定したキーが存在するかどうかチェック
list.Exists("key")
'' ループ
Dim listKey as Object
Dim val As Object
Set listKey = list.Keys
For Each val In listKey
'' キーを指定してリストにアクセス
list(val)
Next