Наиболее близким вы собираетесь сделать это с помощью словаря (как уже упоминалось Pacifika)
Dim objDictionary
Set objDictionary = CreateObject("Scripting.Dictionary")
objDictionary.CompareMode = vbTextCompare 'makes the keys case insensitive'
objDictionary.Add "Name", "Scott"
objDictionary.Add "Age", "20"
Но я петли через мои словари как коллекция
For Each Entry In objDictionary
Response.write objDictionary(Entry)