FAQ's de VB6

[GeoAvila]

¿Como leer caracter por caracter de una cadena string?

Respuesta:

Código:

Private Sub Command1_Click()
Dim Contador As Integer
Texto = "Uno_a_UNo" ' cadena string
For Contador = 1 To Len(Texto)
MsgBox Mid(Texto, Contador, 1)
Next Contador
End Sub