Option Explicit

Function Palíndromo(al_derecho As String) As String
    Dim al_revés As String
    Dim lugar As Integer
    
    al_revés = ""
    
    For lugar = 1 To Len(al_derecho)
        al_revés = Mid(al_derecho, lugar, 1) & al_revés
    Next lugar
    
    Palíndromo = al_revés
End Function
