Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
  If Shift And KeyCode = 39 Then
    MsgBox "Shift und Pfeiltaste Rechts gedrückt"
  End If
  If Shift And KeyCode = 37 Then
    MsgBox "Shift und Pfeiltaste Links gedrückt"
  End If
End Sub
 
Private Sub Form_Load()
  Me.KeyPreview = True
End Sub