number pad key id?

[mperrah]

maybe add an if statement to the action_... sub

Sub action_p() 
    If Selection.Count > 1 Then Exit Sub 
      if selection.value = "{100}"
    Call insert_letter("pnum") 
      elseif selection.value = "4"
    Call insert_letter("ptop") 
End Sub

Then change the vletter call to match?