This code checks if a given string is a palindrome.
Public Function IsPalindrome(strToCheck As String)
As Boolean
Dim iForward As Integer
Dim iBack As Integer
Dim iMid As Integer
Dim bPalindrome As Boolean
IsPalindrome = False
bPalindrome = True
On Error GoTo ERR_IsPalindrome
iBack = Len(strToCheck)
iMid = iBack / 2
iForward = 1
If (iBack < 1) Then
Exit Function
End If
Do While (iForward <> iBack And
iForward <= iMid)
If (Mid(strToCheck, iForward, 1)
<> Mid(strToCheck, iBack, 1))
Then
bPalindrome = False
Exit Do
End If
iBack = iBack - 1
iForward = iForward + 1
Loop
IsPalindrome = bPalindrome
Exit Function
ERR_IsPalindrome:
Debug.Print "Error: " & Err.Description
End Function