Cambiar el orden de los caracteres

Question

Existen unas palabras llamadas "palíndromas" estas son las que al escribirse del final al inicio lucen = a ser escritas del inicio al final. Por ejemplo "ojo". Necesito que mi programa indique si la palabra es palíndroma o no. Hasta ahora tengo esto, pero necesito voltear las letras del TextBox2 pero me han dicho que no puedo usar los comandos de reverse. ¿Alguien me puede ayudar?


Public Class Form1
    Dim m As Integer
    Dim o As String

    Private Sub TextBox1_KeyPress(sender As Object, e As KeyPressEventArgs) Handles TextBox1.KeyPress
        If e.KeyChar = Chr(13) Then
            m = Len(TextBox1.Text)
            o = Mid(TextBox1.Text, 1, m)
            TextBox2.Text = o
            If TextBox1.Text = TextBox2.Text Then
                MsgBox("La palabra es palídroma")
            Else
                MsgBox("La palabra no es palíndroma")
            End If
        End If
    End Sub
End Class

Answer 1

Puedes usar una función que recorra la cadena en orden inverso para formar la cadena al revés:

Public Function strReverse(Cadena As String) As String

Dim n As Integer
For n = Len(Cadena) To 1 Step -1
   strReverse = strReverse & Mid(Cadena, n, 1)
Next n

End Function

---

Saludos, Javier J