Excel reverse string function (VBA)

a very simple VBA funciton to reverse a string (text cell) in Excel:

Function Reverse(str As String) As String
    Reverse = StrReverse(Trim(str))
End Function