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