Private Sub Text1_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then 'codigo de Avellaneda End If End Sub