well...
if all is 1 element array ($all[0]) doing:
redim preserve $all[ubound($all)-1]

would make:
dim $all[-1]
_________________________
!

download KiXnet