Pasar ARRAYS como parámetros

Jorge
23 de Febrero del 2005
¿alguien me puede explicar cómo pasar un ARRAY como parámetro en una function o sub?
Yo hago lo siguiente:

dim arr()
dim valor
valor = 30
call Procedimiento valor, arr()

'--------------------------------------------
sub Procedimiento valor, arr()
dim i
for i = 0 to valor
redim preserve arr(i)
arr(i) = algo
next
end sub

Bueno, cada vez que intento hacer el "redim" del ARRAY dentro de la función, me sale un error que viene a decir (+/-) que el array está bloqueado.

¿Alguien puede ayudarme?