howdy
this code, which loads a KML file, is working great. I'm getting the coordinates of the current oCustomNode:
Sub Add_Traverse_CustomXMLPart()
Dim oCustomPart As CustomXMLPart
Dim oCustomNode As CustomXMLNode
Dim oCustomNodes As CustomXMLNodes
'Add a Custom XML Part...