Функция sReverse и палиндромы

Function sReverse(ByVal sD As String) As String
  ' sReverse - функция меняющая в строке порядок символов на обратный
  '
  ' Возвращает: Строковую переменную с обратным порядком символов
  '
  ' sD - исходная строка
  '
  Dim sT As String
  Dim lLen As Long
  Dim lPos As Long
  Dim lI As Long
  '
  lLen = Len(sD)
  For lI = lLen To 1 Step -1
    sT = sT & Mid$(sD, lI, 1)
  Next lI
  sReverse = sT
End Function

sT = StrReverse("Привет")

Function sReverse(sD As String) As String
Dim asd$
asd = Replace(sD, " ", "")
If StrConv(sD, 2) = StrConv(StrReverse(asd), 2) Then sReverse= "Полиндром" Else sReverse= "не Полиндром"
End Function

Function sr(s As String) As String
Dim I&, L&
L = Len(s)
sr = Space$(L)
For I = 1 To L
  Mid$(sr, I, 1) = Mid$(s, L - I + 1, 1)
Next
End Function

Private Function IsPalindrom(AnyStr As String) As Boolean
Dim z&, sLen&
    AnyStr = Replace(AnyStr, " ", "")
    sLen = Len(AnyStr)
    For z = 1 To sLen \ 2
        If Mid(AnyStr, z, 1) <> Mid(AnyStr, sLen - (z - 1), 1) Then IsPalindrom = False: Exit Function
    Next
    IsPalindrom = True
End Function
 
Private Sub testP()
    MsgBox IsPalindrom("аргентина манит негра")
End Sub