Повернуть строку задом наперёд

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