Releasing memory space used by an Array in VB Script

Dim NumArray(9)
NumArray(0) = 20

MsgBox UBound(NumArray) 'Returns 9
MsgBox NumArray(0) 'Returns 20

Erase NumArray 'Free memory
MsgBox NumArray(0) 'Returns Empty


'For Dynamic Array

Dim DynamicArray()
ReDim DynamicArray(9) '  reinitializing 
DynamicArray(1) = 21

MsgBox DynamicArray(1) 'Returns 21
MsgBox UBound(DynamicArray) 'Returns 9

Erase DynamicArray ' Free memory

MsgBox UBound(DynamicArray) 'Error
MsgBox DynamicArray(1) 'Error

ReDim Preserve DynamicArray(9)

MsgBox UBound(DynamicArray) 'Returns 9
MsgBox DynamicArray(1) 'Returns Empty



'For Multidimensional Array

Dim ma(2,3,4)
ma(0,0,0) = 23
MsgBox ma(0,0,0) 'Returns 23

Erase ma

MsgBox UBound(ma,2) 'Returns 3
MsgBox ma(0,0,0) 'Returns Empty


...