Function isPalendrome(ByVal a As String) As Boolean

If a.Length < 2 Then Return True

If a.Chars(0) = a.Chars(a.Length - 1) Then

a = a.Remove(a.Length - 1, 1)

If a.Length > 0 Then a = a.Remove(0, 1)

Return isPalendrome(a)

End If

Return False

End Function