Simple code.. What's wrong?

[dglienna]

Don't your arrays start at 0? If so, you are missing them.

Also, you don't set the new array position as being +1 to the last one.
You should redim with the preserved option before you write to the array.

Start out like this:

Dim arrIPs() As Variant

set the first position as, say for example, z=0

when you go to add it

redim preserve arrIPs(z + 1)

you wouldn't need to loop to find the next open spot.