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