Option Explicit
Public Sub read_config()
Dim objXML As Object
Set objXML = CreateObject("Microsoft.XMLDOM")
objXML.validateOnParse = True
objXML.setProperty "SelectionLanguage", "XPath"
If Not objXML.Load(Environ("USERPROFILE") & "\Desktop\werte.xml") Then
MsgBox "Fehler beim Laden des Dokumentes." & vbCrLf & vbCrLf _
& "Grund: " & objXML.parseError.reason & vbCrLf _
& "Zeile: " & objXML.parseError.Line, vbOKOnly Or vbExclamation, "Fehler"
Set objXML = Nothing
End If
Debug.Print objXML.SelectSingleNode("/Konfiguration/Wert1").Text
Debug.Print objXML.SelectSingleNode("/Konfiguration/Wert2").Text
Set objXML = Nothing
End Sub