0 Usuarios y 1 Visitante están viendo este tema.
Private Sub Command1_Click()Dim Contador As IntegerTexto = "Uno_a_UNo" ' cadena stringFor Contador = 1 To Len(Texto)MsgBox Mid(Texto, Contador, 1)Next ContadorEnd Sub