Looping thru an array, but ReDim in the loop?

[Jim Brown]

Hi Gang,

I'm looping through an array, using UBound as the upper limit of the loop, thus:

For myCount = 0 to UBound(myArray) - 1
'  do some stuff
Next

No prob so far.

Then I realised I needed to grown the array under certain circs, inside the loop thus:

For myCount = 0 to UBound(myArray) - 1
'  do some stuff
'
Redim Preserve myArray(somevalue)
'
Next

Now the loop doesn't continue to the new end of the array; it still stops at the original end. Even tho' in step mode, if I park the mouse over the For stmt, which shows the UBound has increased, VB seems to have an internal representation of the For..Next's outer limit which it doesn't update.

I've worked around in a way I think is a bit ugly... set the loop's outer limit to be bigger than I expect and then check if I go past the end of the array, thus:

For myCount = 0 to 50      '50 > largest expected value
If myCount > UBound(myArray) Then Exit For
'
'  do some stuff
'
Redim Preserve myArray(somevalue)
'
Next

Any one got any better ideas please?