Problema al dar valor a un ARRay

[kan]

tengo una cadena separada por comas y lo que quiero es ke se cargue en un array separando haciendo un elemento nuevo cada vez que hay una coma el problema es ke pese a ke si se redimensiona luego resulta ke no ha guardado nada en el interiro a ke puede ser debido?? tambien he probado con la función Array pero me parece ke no le puedes pasar una variable con los valores ke solo funciona con literales no??

Este es mi codigo
for i=1 to len(uIDDESTINO)
select case mid(uIDDESTINO, i, 1)
case ","
Z=Z+1
REDIM PRESERVE DESTINO(Z+1)
case else
DESTINO(Z) = DESTINO(Z) & mid(uIDDESTINO, i, 1)
end select
next