' Single dimension array
Dim maxima(10 To 20)
Print UBound(maxima) ' Output: 20
for i = ubound(array) to LBound(array) ' schleife fängt beim letzten Element an und zählt dann runter
if (array(i) != null) then exit for
next
Naja, man kann es auch auf die Goldwaage legen ;)