Länge eines Array

wie kann ich zur Laufzeit die Länge eines redimensionierten Arrays feststellen.

Beispiel:
dim array ()
redim preserve array(10)

-> Die Länge wäre 10!