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