Dim i, ungleich as Integer
Dim str as String
ungleich = 0
 
for i = 0 to (len(str)/2)
     if( lcase(mid(str, i, 1)) <> lcase(mid(str, len(string) - i, 1)) ) then _
       ungleich = ungleich + 1
next i
 
if(ungleich = 0) then msgbox "Palindrom"
if(ungleich <> 0) then msgbox "Kein Palindrom"