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
Saludos.