Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
  If Shift = vbShiftMask Then
    'Si está presionada la tecla shift.
    '
    Select Case KeyCode
      Case vbKeyNumpad6:
      Case vbKeyNumpad8:
    End Select
  Else
    'Lo que haría con la misma tecla si Shift no está presionado.
    '
    Select Case KeyCode
      Case vbKeyNumpad6:
      Case vbKeyNumpad8:
    End Select
  End If