Dictionaryの使い方

Dictionary（連想配列）

キーと値をセットで設定することができる。
String型配列などでも値をセットすることはできるが、設定できる値は1つだけ。
キーとなる値とそれに紐づく値を管理したい場合はオススメ。

Sub sample()

　' 変数の宣言
  Dim objDicStaffList As Object

　' オブジェクト生成
  Set objDicStaffList = CreateObject("Scripting.Dictionary")
  
　' 同じキーが存在するかをチェック
  If objDicStaffList.Exists("キー") = False Then
    ' 存在しなければキー＆値をセット
    objDicStaffList.Add "キー", "値"
  End If

　' 値を取得
  strValue = objDicStaffList.Item("キー")

End Sub

自分の備忘録としてコードのみ記載。この記述方法だけが正ではないので参考程度に。