Удалить массив

[Strayd]

Есть массив:
Dim i() as long

Sub test()
For x=0 to 10
redim i(x)
i(x)=5 'любые числа
next x
end sub
теперь нужно убрать этот массив чтобы можно его было опять создать тойже функцией код должен быть типа

Dim i() as long

Sub test()
For x=0 to 10
redim i(x)
i(x)=5 'любые числа
next x
убрать массив( i() )
For x=0 to 10
redim i(x)
i(x)=5 'любые числа
next x
end sub

подскажите функцию ...

[Sirik]

Я что-то не понял: если ты используешь просто Redim, то размер массива меняется, при этом весь массив удаляется. Другое дело с Preserve - изменяется размер массива, но данные не уничтажаются

[GSerg]

Видимо, челу нужно erase.
Хотя он и так в цикле 11 раз пересоздаёт массив

[Sirik]

Видимо, челу нужно erase.
Хотя он и так в цикле 11 раз пересоздаёт массив

Да, дествительно он в цикле использует просто redim, т.е. все елементы массива теряются
Зачем ему это нужно

[Strayd]

Спасибо всем я просто напсал код для примера в настоящем проекте я действительно использую Redim Preserve i(x), всем спасибо Ж) ........