設定方法は以下の通り。
┌──────────────────────────────────────┐
│Dim theDic                                                                  │
│Set theDic = CreateObject("Scripting.Dictionary")                           │
│Set theDic("キー1") = CreateObject("Scripting.Dictionary")                  │
│theDic("キー1")("キー2") = 値                                               │
└──────────────────────────────────────┘

  参照方法は以下の通り。
┌──────────────────────────────────────┐
│Dim key                                                                     │
│key = "キー1"                                                               │
│If theDic.Exists(key) Then                                                  │
│    MsgBox theDic(key)("キー2")                                             │
│End If                                                                      │
├──────────────────────────────────────┤
│Dim key                                                                     │
│For Each key In theDic                                                      │
│    MsgBox theDic(key)("キー2")                                             │
│Next                                                                        │
└──────────────────────────────────────┘