Crea un formulario con tres etiquetas, dos cajas de texto, tres botones y escribe el siguiente código:

Function cadinvertida(cadena As String) As String

Dim invertida() As String * 1

Dim i As Integer

Dim j As Integer

n = Len(cadena)

ReDim invertida(n)

For i = 1 To n

invertida(i - 1) = Mid(cadena, i, 1)

Next i

For j = (n - 1) To 0 Step -1

cadinvertida = cadinvertida & invertida(j)

Next j

End Function

El botón Invertir

Private Sub Command1_Click()

Text2 = cadinvertida(Text1)

End Sub

El botón Limpiar

Private Sub Command2_Click()

Text1 = ""

Text2 = ""

Text1.SetFocus

End Sub

El botón Salir

Private Sub Command3_Click()

Unload Me

End

End Sub