prova così:

codice:
Private Sub Form_KeyPress(KeyAscii As Integer)
    If KeyAscii = 80 Or KeyAscii = 112 Then
        MsgBox "hai premuto P"
    End If
End Sub