' Inversion De Una Cadena De Caracteres
Public Function InvertirCadena(CadenaInvertir As String) As String
Dim Mx As Long
Dim Y As Long
Dim var As String
On Error GoTo mal
Mx = Len(CadenaInvertir)
If Mx = 0 Then
InvertirCadena = ""
Exit Function
End If
var = ""
For Y = Mx To 1 Step -1
var = var + Mid$(CadenaInvertir, Y, 1)
Next Y
InvertirCadena = var
terminar:
Exit Function
mal:
MsgBox Err
MsgBox Error(Err)
InvertirCadena = ""
Resume terminar
End Function