retrieving node names

hi i have been struggling with get node names extracted from an xml file

i want the vba code below to return all nodes as following
e.g
ParentNodeName/ChildNodeName
ParentNodeName
ParentNodeName
ParentNodeName/ChildNodeName/ChildNodeName

the xml has tuples and there are tuples within tuples. I just need the code to return all elements with parentnode name in front of it.

Tried playing around with the following code but with no luck. Can someone please advise?

xmlExportDoc = "c:\myDoc.xml"

Dim xmldoc As MSXML2.DOMDocument
Dim xmlNode As MSXML2.IXMLDOMNode
Dim xmlNodeList As MSXML2.IXMLDOMNodeList
Dim myNode As MSXML2.IXMLDOMNode

Set xmldoc = New MSXML2.DOMDocument
xmldoc.async = False
xmldoc.Load (xmlExportDoc)
Set xmlNodeList = xmldoc.getElementsByTagName("*")
On Error Resume Next
For Each xmlNode In xmlNodeList
    For Each myNode In xmlNode.ChildNodes
        Debug.Print myNode.ParentNode.nodeName & "/" & mynode.nodeName
    Next myNode
Debug.Print mynode.nodeName
Next xmlNode
Set xmldoc = Nothing

Maybe inside the for ...Next is missing:

myNode.ParentNode.nodeName=myNode.ParentNode.nodeName & "/" & mynode.nodeName

Thank you Bebo. I added the bit you mentioned but it didnt work for me.
I did come up with the code below which does the job. I dont need parentnodes "xbrli" and "#document" so i am setting them to vbNullString

I dont feel a 100% satisfied(too many lines of code!) with it but it does the job. I am pretty sure this can be shorten down to a few lines but not sure how. Thank you for your input

Public sub returnAllmyElementsWithData() 

Dim xmlDoc As MSXML2.DOMDocument
Dim xmlRoot As MSXML2.IXMLDOMNode
Dim xmlChildren As MSXML2.IXMLDOMNodeList

Dim i As Integer

Dim p1 As String
Dim p2 As String
Dim p3 As String
Dim p4 As String
Dim p5 As String
Dim CombinedPs As String
Dim xmlElement As MSXML2.IXMLDOMNode
Set xmlDoc = New MSXML2.DOMDocument
Set xmlDoc = CreateObject("MSXML2.DOMDocument")
xmlDoc.Load ("C:\Users\JohnSmith\Desktop\myXml.xml")
Set xmlChildren = xmlDoc.getElementsByTagName("*")

For Each xmlElement In xmlChildren
On Error Resume Next
If xmlElement.Attributes.Length > 0 Then
p1 = xmlElement.ParentNode.ParentNode.ParentNode.nodeName & "\"
p2 = xmlElement.ParentNode.ParentNode.nodeName & "\"
p3 = xmlElement.ParentNode.nodeName & "\"
p4 = xmlElement.nodeName

If xmlElement.ParentNode.ParentNode.ParentNode.nodeName = "#document" Then p1 = vbNullString
If xmlElement.ParentNode.ParentNode.ParentNode.nodeName = "xbrli" Then p1 = vbNullString
If xmlElement.ParentNode.ParentNode.nodeName = "#document" Then p2 = vbNullString
If xmlElement.ParentNode.ParentNode.nodeName = "xbrli" Then p2 = vbNullString
If xmlElement.ParentNode.nodeName = "#document" Then p3 = vbNullString
If xmlElement.ParentNode.nodeName = "xbrli" Then p3 = vbNullString
If xmlElement.nodeName = "#document" Then p4 = vbNullString
If xmlElement.nodeName = "xbrli" Then p4 = vbNullString

CombinedPs = (p1 & p2 & p3 & p4)

If CombinedPs <> vbNullString Then
debug.print  CombinedPs
End If
End If
Next xmlElement

End Function