Function Reverse_Word(sWord As String)
     Reverse_Word = StrReverse(sWord)
End Function

Function Reverse_Word(sWord As String)
On Error Resume Next
     Reverse_Word = StrReverse(sWord)
     Reverse_Word = --Reverse_Word
End Function

Function dhReverse(ByVal strIn As String) As String
     Dim abytIn() As Byte
     Dim strTemp As String
     Dim i As Integer
     Dim bytTemp As Byte
     Dim intNew As Integer

     If Len(strIn) = 0 Then dhReverse = strIn: Exit Function

     abytIn = strIn   'байтовый массив
     For i = LBound(abytIn) To UBound(abytIn) \ 2 Step 2
        intNew = UBound(abytIn) - i
        'обмен первыми байтами
        bytTemp = abytIn(i)
        abytIn(i) = abytIn(intNew - 1)   '  i <--> (intNew - 1)
        abytIn(intNew - 1) = bytTemp

        'обмен вторыми байтами
        bytTemp = abytIn(i + 1)
        abytIn(i + 1) = abytIn(intNew)   '  (i + 1) <--> intNew
        abytIn(intNew) = bytTemp
     Next i
     dhReverse = abytIn
End Function
Function SlowReverse(strIn As String) As String
     Dim i As Integer

     For i = Len(strIn) To 1 Step -1
        SlowReverse = SlowReverse & Mid(strIn, i, 1)
     Next i
End Function