かなり、まんま Set d = CreateObject("Scripting.Dictionary") d.Add "a", "アテネ" d.Add "b", "ベオグラード" d.Add "c", "カイロ" a = d.Items For i = 0 To d.Count -1 WScript.Echo "a(" & i & ") : " & a(i) Next