Sub GetPaths(ByVal node As Xml.XmlNode, ByVal paths As List(Of String), Optional ByVal path As String = "")
        path &= "/" & node.Name
        If Not paths.Contains(path) Then
            paths.Add(path)
            lstPaths.Items.Add(path)
        End If
        For Each child

Public Class Form1
    Public path As String

    Private Sub cmdRun_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdRun.Click
        Dim xDoc As XmlDocument = New XmlDocument
        xDoc.Load("C:\Temp\file.xml")
        Dim node As

<CATALOG>
  <CD>
    <TITLE>Empire Burlesque</TITLE>
    <ARTIST>Bob Dylan</ARTIST>
  </CD>
  <CD>
    <TITLE>Hide your heart</TITLE>
    <ARTIST>Bonnie