Check if a Given String Is a Palindrome

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

Charlie Frank

Charlie has over a decade of experience in website administration and technology management. As the site admin, he oversees all technical aspects of running a high-traffic online platform, ensuring optimal performance, security, and user experience.