Un'alternativa agli array potrebbe essere l'oggetto Dictionary

Set d = CreateObject("Scripting.Dictionary")

per aggiungere un nuovo articolo:
(articolo,quantità)

d.Add "articolo1", 10
d.Add "articolo2", 3
d.Add "articolo3", 1

per modificare la quantità:
d.Item("articolo2")=d.Item("articolo2")+1

per sapere quanti sono gli articoli:
d.Count

per vedere se c'è un articolo:
d.Exists("articolo2) 'se c'è restituisce true, altrimenti false

forse con questo oggetto ti trovi meglio... ha anche altre funzioni.. magari se hai una guida vai a vedere..