convertir cadena a arreglo de caracter

rafael
26 de Noviembre del 2007
necesito saber como convertir una cadena de caracteres en caracteres independientes.

mvallejos
26 de Noviembre del 2007
Dim Cadena As String
Dim Letras() as String

Cadena = "dfgsdhdhdhhdfhfdhd"
Redim Letras( Len(Cadena))

For i = 1 to Len(Cadena)
Letras( i ) = Mid(Cadena, i, 1 )
Next i

Saludos