Utilizamos cookies propias y de terceros para mejorar la experiencia de navegación, y ofrecer contenidos y publicidad de interés. Al continuar con la navegación entendemos que se acepta nuestra política de cookies.
Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = 13 Then MsgBox "Wazzap" If KeyCode = vbKeyDown Then Text1 = Text1 & Chr(13) & Chr(10) 'Chr(13) & Chr(10) --> Crea 2 caracteres q juntos desaparecen y baja un spacio End Sub