You can do the following:

Redim objlocs(1 to PPcount[/i]-1)

That might work. Or try:

Option Base 1

somewhere in the code.