Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
    Debug.Print "KeyCode:  " & KeyCode
    Debug.Print "Shift:    " & Shift
End Sub

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
 
    If Shift = 1 Then '1 für Shift-Taste, 2 für Ctrl-Taste ...
        Select Case Chr(KeyCode)
            Case "P": MsgBox "przDrucken"
            Case "S": MsgBox "przSpeichern"
        End Select
    End If
 
End Sub