como puedo recorrer una cadena

[CarlosFran]

amigos quisiera saber como puedo recorrer una cadena y luego almacenar cada uno de los caracteres de esa cadena en un array

[Insomnia]

Hola

Espero que el siguiente código sea lo que buscas. Suponiendo que escribes la cadena en el text1 y guardas los caracteres en un array llamado cad:

Código:

Dim i As Integer
    Dim cad(30) As String

    For i = 1 To Len(Text1.Text)
        cad(i - 1) = Mid(Text1.Text, i, 1)
    Next i

--Saludos--

[CarlosFran]

muchas gracias