Private Sub Text1_KeyUp(KeyCode As Integer, Shift As Integer)
If Shift = 1 And KeyCode = 13 Then Debug.Print "Shift" If Shift = 2 And KeyCode = 13 Then Debug.Print "Ctrl" If Shift = 4 And KeyCode = 13 Then Debug.Print "Alt" If Shift = 6 And KeyCode = 13 Then Debug.Print "Alt Gr"