Private Sub Testen_Click()
    Dim rString As String
    Dim i As lOng 
 
    strKleinABC = LCase(Eingabe)
    rString = StrReverse(strKleinABC) 
    blnAusgabeWert = True
 
     For i  = 1 To Len(strKleinABC)
 
           If Mid(strKleinString, i ,1) <> Mid(rString, i,1) Then
                  blnAusgabeWert = False
           End If
     Next 
 
     If blnAusgabeWert = True Then
           Interesponse = MsgBox("Dieses Wort ist ein Palindrom, Gratulation
!", vbInformation + vbOKOnly, " Testergebnis !!! ")
    Else
           Interesponse1 = MsgBox("Dieses Wort ist leider kein Palindrom !!!",
vbCritical + vbOKOnly, " Testergebnis !!! ")
    End If
End Sub