Dim i As Long
Dim TestString As String
Dim IsPal As Boolean
 
'TextBox-Text klein machen
TestString = LCase(Text1.Text)
IsPal = True
 
'Die erste Hälfte der Zeichen mit der hinteren Hälfte vergleichen
For i = 1 to Int((Len(TestString)+1)/2)
    If Mid(TestString, i, 1) <> Mid(TestString, Len(TestString)-i) Then
        IsPal = False
        Exit For
    End If
Next i
 
'Das Ergebnis
If IsPal Then
    MsgBox "Ist so ein Pal-Teil, wie immer das auch heißt ;) "
Else
    MsgBox "Ist so kein Pal-Teil, wie immer das auch heißt ;) "
End If

Bye

illuminator
(Programmers don't die, they GOSUB without RETURN...)