Good thing that array's big enough

[Wes Jones]

mlNumOfSomething = SomeClass.GetSomething(anIDArray())

For lli = 1 To mlNumOfSomething

SomeClass.GetSomeInfo anIDArray(lli), Description:=aDescription
ReDim Preserve msAllAgencies(1 To mlNumOfSomething)
msSomeArray(lli) = aDescription

Next lli

[Jeremy Hutchinson]

I guess they won't need to use an obfuscater...

[Nagy Vilmos]

That is truely awful. Much better would be:

mlNumOfSomething = SomeClass.GetSomething(anIDArray())
lItemToAdd = 0
For lli = 1 To mlNumOfSomething
SomeClass.GetSomeInfo anIDArray(lli), Description:=aDescription
lItemToAdd = lItemToAdd + 1
ReDim Preserve msAllAgencies(1 To lItemToAdd)
msSomeArray(lItemToAdd) = aDescription
Next lli

That way you can add in logic to exclude items.

---

Panic, Chaos, Destruction. My work here is done. or "Drink. Get drunk. Fall over." - P O'H