Actividad pública reciente
Ha valorado "Excelente" la respuesta
Leer de derecha a izquierda
Dim I as integer Dim J as integer Dim K as Integer Private Sub Voltear_Click() Texto2="" J = 0 I = Len(Texto1) If I = 0 then Msgbox "El Texto1 esta vacio" Exit Sub Else For K = I To 1 Step -1 J = J + 1 Texto2=Texto2 & Mid(Texto1, K, 1) Next End If...