Hola esta es mi idea....
'//Un Form con un textbox(Text1) y un CommandButton (Command1)
//VB 6
Option Explicit
Private Sub Command1_Click()
Dim ls_Original As String, ls_Palabra As String, ls_Palabra_inv As String
Dim ls_Mensaje As String
ls_Original = Trim(Me.Text1)
ls_Palabra = LCase(Replace(ls_Original, " ", ""))
ls_Palabra_inv = StrReverse(ls_Palabra)
ls_Mensaje = IIf(ls_Palabra = ls_Palabra_inv, " SI ", " NO ")
MsgBox "'" & UCase(ls_Original) & "' " & ls_Mensaje & " es Palindromo"
End Sub
Esa es una idea pero alguien puede tener una mejor espero te sea de ayuda
Cualquier correccion Bienvenida!
Saludos
Mexicali B.C.
