Public XMLPath As String = "C:\Users\.......\XMLParameter.xml"
Public XMLDoc As Xml.XmlDocument

Dim XMLReader As Xml.XmlReader = New Xml.XmlTextReader(XMLPath)
 
XMLDoc = New Xml.XmlDocument
XMLDoc.Load(XMLPath)
 
With XMLReader
     Do While .Read
          If .GetAttribute("Name") = "Exceldatei" Then
               ExcelPath = XMLReader.GetAttribute("Path")
          ElseIf .GetAttribute("Name") = "ConsiderFillet" Then
               ConsiderFillet = XMLReader.GetAttribute("Value")
          End If
     Loop
End With
 
End Sub

Dim Parameter As Xml.XmlNode
Dim root As Xml.XmlNode = XMLDoc.DocumentElement
 
Parameter = root.SelectSingleNode("Parameter[@Name='ConsiderChamfer']")
Parameter.Attributes("Value").Value = ChkBoxChamfer.Checked
 
XMLDoc.Save(XMLPath)