Invertire un determinata Frase

Funzione che inverte un frase determinata.

'*********************************************
'CAD = frase da convertire
'*********************************************

Function FraseRovesciata(CAD As String) As String
Dim i As Integer, CADAUX As String
If Len(CAD) = 0 Then Exit Function
For i = Len(CAD) To 1 Step -1
    CADAUX = CADAUX & Mid(CAD, i, 1)
Next i
FraseRovesciata = CADAUX
End Function

Testato su: Tutti i Sistemi operativi

Oppure con VB6, utilizzando la Funzione StrReverse:

MsgBox StrReverse(FrasedaInvertire)

Testato su: Tutti i Sistemi operativi