Insertar valores en un array

lo que deseo es busca en un campo los espacios para insertarle un * y tengo esto pero no lo puedo insertar el valor

Dimension matrix(6)
área=("DIRECCIÓN DE RECURSOS HUMANOS")
largo=Len(Allt(área))
cadena=Allt(área)
For a = 1 To largo
letra=Substr(cadena,a,1)
If letra=" "
num=a
?num
Store num To matrix
Endif
Endfor
DISPLAY MEMORY LIKE matrix

me podrían ayudar ?

GRACIAS