Scripting Dictionary

Asi es como se crea
Set mesPubList = CreateObject("Scripting.Dictionary")
With mesPubList
.Add 1,"JUNIO 2005"
.Add 2,"JULIO 2005"
.Add 3,"AGOSTO 2005"
.Add 4,"SEPTIEMBRE 2005"
.Add 5,"OCTUBRE 2005"
.Add 6,"NOVIEMBRE 2005"
.Add 7,"DICIEMBRE 2005"
.Add 8,"ENERO 2006"
.Add 9,"FEBRERO 2006"
.Add 10,"MARZO 2006"
.Add 11,"ABRIL 2006"
.Add 12,"MAYO 2006"
.Add 13,"JUNIO 2006"
.Add 14,"JULIO 2006"
.Add 15,"AGOSTO 2006"
.Add 16,"SEPTIEMBRE 2006"
.Add 17,"OCTUBRE 2006"
.Add 18,"NOVIEMBRE 2006"
.Add 19,"DICIEMBRE 2006"
.Add 21,"ENERO 2007"
End With