VB Forum / General / July 2009

Suppose you have a set of arrays that contain one extra element at the
end that you do not need. You want to remove it before sending the
array on into another function that will do calculations on its
values.

Okay, what I have done is this:

Redim Preserve MyArray(UBound(MyArray)-1)

This works fine for removing the last array element, EXCEPT when there
is only one element, MyArray(0). Here you get an error.

So what I have done is this:

If UBound(MyArray) > 0 then Redim Preserve MyArray(UBound(MyArray)-1)

It's a lot of verbage though, so I'm thinking that maybe there is a
better way to do this?

Thanks.

Webbiz