Public Function Naoborot()
Dim S as String
S = InputBox("Введите текст:")
Naoborot = StrReverse(S) 'функция есть такая для переворота
End Sub