Arrays asociativos con VBA y VBScript

Agregar una referencia a Microsoft Scripting Runtime

Ejemplo:


    Dim dict As New Dictionary
  
    dict.Add "abc", "prueba 1"
    dict.Add "xxx", "prueba 2"
  
    MsgBox (dict("abc"))



http://www.kamath.com/tutorials/tut009_dictionary.asp