FUNÇÃO PERSONALIZADA INVERTER TEXTO
20/08/2010 11:27
Esta função inverte o texto de trás para frente.
Function Textorevertido(texto) As String
Dim lista As Integer
Dim x As Integer
TextLen = Len(texto)
For x = TextLen To 1 Step -1
Textorevertido = Textorevertido & Mid(texto, x, 1)
Next x
End Function