Generally DIM, Redim redim is not high in reassignment.
Here is another method efficiency unknown just reference
Interested in see Execute's related information
<% DIM UpperBound: UpperBound = 3execute ("DIM TestArray (" & Upperbound & ")") Response.write (Ubound (Testarray) Call Erase (TestArray)%>