Private Sub Command1_Click()
If UCase(Text1.Text) = UCase(Palindrom(Text1.Text)) Then
MsgBox ("Ist ein Palindrom.")
Else
MsgBox ("Ist kein Palindrom.")
End If
End Sub
Public Function Palindrom(Text As String) As String
For i = Len(Text) To 1 Step -1
x = x & Mid(Text, i, 1)
Next
Palindrom = x
End Function