You need to reference from the root node in your XPath string by prepending a slash. Then from the parent node you can call the removeChild()
method passing the node to remove, like this...
Set nodes = objXMLDoc.selectNodes("/products/product/P_ID | " & _
"/products/product/P_Name")
For Each node In nodes
node.parentNode.removeChild(node)
Next