size sorduğum sorunun cevabını buldum,ilginize teşekkürler,saygılar.
Dim shiftebas As Integer
shiftebas = (Shift And acShiftMask) > 0
If shiftebas Then
If KeyCode = "40" Then
'yürütülecek kod
end if
else
If KeyCode = "40" Then
'yürütülecek kod
end if
end if