Check 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