'Add a module to the project and write the following: Public strRevertida As String

'Add a TextBox to your form(Text1) and add the following code: Function strReverse(str As String) Dim var As String Dim i As Integer i = Len(str) While i > 0 var = var & Mid$(str, (i), 1) i = i - 1 Wend strReverse = var End Function Private Sub Text1_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then strRevertida = strReverse(Text1.Text) MsgBox strRevertida Text1.Text = "" KeyAscii = 0 End If End Sub