Private Sub Command1_Click()
Dim i As Long
Dim TestString As String
Dim vergl1 As String
Dim vergl2 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)
    vergl1 = Mid(TestString, i, 1)
    vergl2 = Mid(TestString, Len(TestString) + 1 - i, 1)
    'If Mid(TestString, i, 1) <> Mid(TestString, Len(TestString) + 1 - i) Then
     If vergl1 <> vergl2 Then
        IsPal = False
        Exit For
    End If
Next i
 
'Das Ergebnis
If IsPal Then
    MsgBox "Ist ein Palindrom"
Else
    MsgBox "Ist kein Palindrom"
End If
 
End Sub

Nichts ist umsonst!