Inverti il testo di una cella

Mi รจ servita una volta. 

Questa funzione riceve in ingresso una cella e il valore 1 ad indicare che si tratti di testo. E restituisce il testo invertito.

Per evitare di dimenticarmene, me lo copio_incollo qui nel caso possa tornarmi utile in un futuro. 

Utilizzo: Gianmario_Inverti_il_testo(A1)

Public Function Gianmario_Inverti_il_testo 
                (Intervallo As Range)

Dim I As Integer
Dim NuovaStringa, VecchiaStringa As String

VecchiaStringa = Trim(Intervallo)
For I = 1 To Len(VecchiaStringa)
   NuovaStringa = Mid(VecchiaStringa, I, 1) & NuovaStringa
Next I

' *** output ***
Gianmario_Inverti_il_testo = CLng(NuovaStringa)

End Function