Friend Function FindInXML(ByVal strElement As String) As String
        Try
            xml = New XmlDocument
            xml.Load(strPfad)
        Catch
            'Bei noch nicht bestehen der XML Liste (oder zwischenzeitigem 
            ' Löschen, muss diese erst erzeugt werden
            'Standardmäßig wird die englische Sprache bzw FixBox eingetragen
            Dim strValue As String
            If strElement = "Language" Then
                strValue = "en"
            ElseIf strElement = "Step" Then
                strValue = "Fixbox"
            End If
 
            WriteinXML(strValue, strElement)
 
            xml = New XmlDocument
            xml.Load(strPfad)
        End Try
 
        Try
            Dim n As Xml.XmlNode = xml.SelectSingleNode("//" + strElement)
            FindInXML = n.InnerText
        Catch
            'Falls das Node noch nicht existiert, muss es erstellt werden
            Dim strValue As String
            If strElement = "Language" Then
                strValue = "en"
            ElseIf strElement = "Step" Then
                strValue = "Fixbox"
            End If
            'Neue Nodes setzen
            xmlKD = xml.CreateElement(strElement)
            xmlText = xml.CreateTextNode(strValue)
            'Und "aufhängen"
            xmlKD.AppendChild(xmlText)
            xml.DocumentElement.AppendChild(xmlKD)
 
            Dim n As Xml.XmlNode = xml.SelectSingleNode("//" + strElement)
            FindInXML = n.InnerText
 
            xml.Save(strPfad)
        End Try
    End Function
 
Friend Sub WriteinXML(ByVal strValue As String, ByVal strElement As String)
        'XML erstellen
        Try
            xml = New XmlDocument
            xml.Load(strPfad)
        Catch
            xml = New XmlDocument()
            xml.LoadXml("<Root/>")
        End Try
 
        'Erst versuchen die Nodes zu öffnen, ansonsten müssen diese erstellt 
        ' werden
        Try
            xmlKD = xml.SelectSingleNode("//" + strElement)
            xmlKD.InnerText = strValue
        Catch
            'Neue Nodes setzen
            xmlKD = xml.CreateElement(strElement)
            xmlText = xml.CreateTextNode(strValue)
 
            xmlKD.AppendChild(xmlText)
            xml.DocumentElement.AppendChild(xmlKD)
        End Try
 
        xml.Save(strPfad)
    End Sub