Dim XMLDATEIPFAD As String
 
        XMLDATEIPFAD = "C:\Test.xml"
 
 
        Dim xmlDoc as Object
 
        Dim xmlTest as Object
        Dim xmlGeladen as Boolean
 
        xmlGeladen = False
 
        xmlDoc = CreateObject("MSXML2.DOMDocument")
 
        xmlGeladen = xmlDoc.Load(XMLDATEIPFAD)                         ' 
        ' XML-Datei laden
 
        If xmlGeladen = False Then
            MsgBox("Datei konnte nicht geladen werden.")
 
        Else
 
            xmlTest = xmlDoc.SelectSingleNode("/Node1/Node2")
            'XML auslesen
 
 
            xmlDoc = Nothing
 
        End If