Private Function CheckPalindrom(ByVal strText As String) As Boolean
  On Error Resume Next
  Dim i As Integer, intLength As Integer
  strText = LCase(strText)
  intLength = Len(strText)
  For i = 1 To Len(strText) / 2
    If Mid(strText, i, 1) <> Mid(strText, intLength - i + 1, 1) Then
      Exit Function
    End If
  Next i
  CheckPalindrom = True
End Function

If CheckPalindrom(Text1.Text) Then
  MsgBox ("Ist ein Palindrom.")
Else
  MsgBox ("Ist kein Palindrom.")
End If

Web: http://www.vbtricks.de.vu/

VBTricks.de.vu. Meine Webseite zu VB und anderen Programmiersprachen. Verschiedene fortgeschrittene OCXe und komplette Projekte sind im Sourcecode verf?gbar.