Полное удаление массива данных - VB

Формулировка задачи:

Подскажите, пожалуйста, как удалить из памяти уже существующий массив данных, т.е. вернуть пустой массив

for i=n to 0
   redim preserve A(i)
   if i=0 then
      ' Здесь нужно получить массив, равный первоначальному A()
   end if
next i

Большое спасибо.

Решение задачи: «Полное удаление массива данных»

textual
                            Листинг программы 
                        

                            Dim MyArray() As String
'' ...
Redim MyArray(1 To 1000)
'' ...
'' работаем с массивом, наполняем чем-то
'' ...
'' теперь надо почистить память от массива:
Erase MyArray
'' после этого массив теряет размерность - до следующего Redim''а!
'' затем можно ещё и так:
Redim MyArray(1 To 1000)
'' (и опять получится пустой массив)
                        