連想配列

    '---    宣言
    Dim myUser As Object
    Set myUser = CreateObject("Scripting.Dictionary")

    '---    作成
    myUser.Add "名前", "ディック・ベイヤー"
    myUser.Add "年齢", 87

    '---    使い方
    msgbox    "名前→" & myUser("名前") & "　年齢→" & myUser("名前")
 

    '---    全配列の取り出し
   Dim strMsg As String
   For Each var In myUser
        debug.print var &  "：" & myUser .Item(var) & vbCrLf
    Next var

 

★結果

名前：ディック・ベイヤー

年齢：87