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

Формулировка задачи:

Функция 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

Примеры для тестирования программы: а роза упала на лапу азора кабан упал и лапу на бок аргентина манит негра нажал кабан на баклажан Исходник проекта:Reverse.zip

Решение задачи: «Функция sReverse и палиндромы»

textual
                            Листинг программы 
                        

                            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
                        