trasformare un numero in un array

[tata8515]

Ciao a tutti,
ho necessità di trasformare un numero in un array.
ad esempio
var = 123456
deve diventare
arr(0) = 1
arr(1) = 2
arr(2) = 3
arr(3) = 4
arr(4) = 5
arr(5) = 6

come posso fare?
grazie

[optime]

a naso, controlla

num="123456"
Redim aNum(len(num))
for i=1 to len(num)
   aNum(i)=mid(num,i,1)
next

[tata8515]

Grandissimo!!!!

Grazie mille!!