The code which i write below is not working i didn't get why?

keypress event for command button is not working for "Enter" key why?

please reply

Private Sub Command1_KeyPress(KeyAscii As Integer)
If KeyAscii = vbKeyReturn Then
MsgBox "HI"
End If
End Sub