Prova così in keydown

Select Case KeyCode
Case vbkeydown
SendKeys "{tab}" 'con questo vai giù
Case vbkeyup
SendKeys "+{tab}" 'con questo vai sù
End Select

fammi sapere...............