Cargar un Array con caracteres de una palabra

[rumeniguer]

Se o creo saber como cargar un Array de longitud fija. Pero mi problema va más lejos. Como puedo cargar un Array con cada uno de los caracteres que componen una palabra de longitud variable (introducida por usuario). He intentado hacerlo de la siguiente forma:
Dim Vector As Variant
palabra = GetCgiValue("nombre")
Vector = Array()
'CUENTO EL Nº DE CARACTERES DE LA PALABRA
ncaracteres = Len(GetCgiValue("nombre"))
i = 0
'METO LA PALABRA EN UN ARRAY
Do While i <= ncaracteres
Vector(1) = "pre" 'Right(palabra, 1)
Send "<P>Nº DE CARACTERES: " & ncaracteres & "</P>"
SendFooter
End
i = i + 1
Loop
Muchas gracias de antemano. Por favor ¡que responda alguien!
SALUDOS