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