OnKey to replace command button

Currently, I have a command button which performs this function:

Private Sub CommandButton2_Click()
    With Range("c8")
        .Value = .Value + 3
    End With
    With Range("c17")
        .Value = .Value + 1
    End With
End Sub

I need a button (numpad 0) to do this same thing. Not quite sure how to lay out the code for it but looks like OnKey could do it for me.