Private Sub Form_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then MsgBox "13 er enter og der blev lige trykket på den!" End Sub