Utilizamos cookies propias y de terceros para mejorar la experiencia de navegación, y ofrecer contenidos y publicidad de interés. Al continuar con la navegación entendemos que se acepta nuestra política de cookies.
hola esta es una forma sencilla: defines dos variables
digamos que aux y aux2: aux = Mid(tunumero, 1, 1) aux2 = Mid(tunumero, 4, 1) If aux = aux2 Then aux = Mid(tunumero, 2, 1) aux2 = Mid(tunumero, 3, 1) If aux = aux2 Then MsgBox("Capicua") Else MsgBox("No Capicua") End If Else MsgBox("No Capicua") End If
Y si quieres que sirva para cualquier longitud, te vale con recorrer la cadena de los extremos al centro e ir comprobando elemento a elemento (que sean iguales).