'  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