Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)If KeyCode = 13 Then MsgBox "Pulsaste enter"End IfEnd Sub