StrRev Alternativo

Public Function StrRev_Alter(Palabra As String)
Dim k, i As Integer
Dim Res As String
Dim b() As Byte
b = StrConv(Palabra, vbFromUnicode)
For k = 0 To Len(Palabra) - 1
i = (Len(Palabra) - 1) - k
Res = Res + Chr(b(i))
Next k
StrRev_Alter = Res
End Function

    Public Function StrRev_Alter_7913(Expression As String) As String
        Dim b() As Byte: b = Expression
        If UBound(b) < 1 Then Exit Function
        For x = UBound(b) - 1 To 0 Step -2
            StrRev_Alter_7913 = StrRev_Alter_7913 & ChrW$(b(x))
        Next
    End Function