This code checks if a given string is a palindrome.
Public Function IsPalindrome(strToCheck As String) As BooleanDim iForward As IntegerDim iBack As IntegerDim iMid As IntegerDim bPalindrome As BooleanIsPalindrome = FalsebPalindrome = TrueOn 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