Imports System.Xml
Imports System.IO
Public Class ConfigManager
    Private _configFile As String
    Private _xmlDoc As XmlDocument
    Private _appNode As XmlNode
    Sub New(ByVal cfgfile As String)
        If Not File.Exists(cfgfile) Then
            Throw New FileNotFoundException
        End If
        _configFile = cfgfile
    End Sub
    Public Function Open() As Boolean
        _xmlDoc = New XmlDocument
        _xmlDoc.Load(_configFile)
        _appNode = _xmlDoc.SelectSingleNode("configuration/AppSettings")
        If _appNode Is Nothing Then
            Return False
        End If
        Return True
    End Function
    Public Sub Save()
        _xmlDoc.Save(_configFile)
    End Sub
    Public Function ListKeys() As String()
        Dim strcoll As New System.Collections.Specialized.StringCollection
        Dim chnode As XmlNode
        Dim buff As String()
        If Not _appNode.HasChildNodes Then
            Return Nothing
        End If
        For Each chnode In _appNode.ChildNodes
            If chnode.Name = "add" Then
                strcoll.Add(chnode.Attributes("key").Value)
            End If
        Next
        ReDim buff(strcoll.Count - 1)
        strcoll.CopyTo(buff, 0)
        Return buff
    End Function
    Public Function KeyExists(ByVal keyname As String) As Boolean
        Dim chnode As XmlNode
        If Not _appNode.HasChildNodes Then
            Return False
        End If
        For Each chnode In _appNode.ChildNodes
            If chnode.Name = "add" Then
                If chnode.Attributes("key").Value = keyname Then
                    Return True
                End If
            End If
        Next
        Return False
    End Function
    Public Function GetValue(ByVal keyname As String) As String
        Dim chnode As XmlNode
        If Not _appNode.HasChildNodes Then
            Return Nothing
        End If
        For Each chnode In _appNode.ChildNodes
            If chnode.Name = "add" Then
                If chnode.Attributes("key").Value = keyname Then
                    Return chnode.Attributes("value").Value
                End If
            End If
        Next
        Return Nothing
    End Function
    Public Sub SetValue(ByVal keyname As String, ByVal val As String)
        Dim chnode As XmlNode
        Dim chele As XmlElement
        Dim chkey As XmlAttribute
        Dim chval As XmlAttribute
        If KeyExists(keyname) Then
            For Each chnode In _appNode.ChildNodes
                If chnode.Name = "add" Then
                    If chnode.Attributes("key").Value = keyname Then
                        chnode.Attributes("value").Value = val
                    End If
                End If
            Next
        Else
            chele = _xmlDoc.CreateElement("add")
            chele.SetAttribute("key", keyname)
            chele.SetAttribute("value", val)
            _appNode.AppendChild(chele)
        End If
    End Sub
End Class

  Dim c As New ConfigManager("app.config") ' den pfad der datei nicht vergessen
        If Not c.Open() Then ' wichtig!!  
            MsgBox("XMLNode 'AppSettings' nicht gefunden! Die App.Config" & _
              "überprüfen!")
            Exit Sub
        End If
        c.SetValue("test", "test") ' schreiben
        MsgBox(c.GetValue("test")) ' abragen