why isn't this short basic code working

[dimava]

Select Case KeyCode
    Case vbKeyRight:
    keyascii = 0
End Select

I want to disable the RIGHT arrow button