Public Class ConfigManager
    '....
    ' Pfad der XML-Datei
    Protected Shared configPath As String
    '....
    ' Konfigurationsdatei laden
    Public Shared Function Load() As ConfigManager
 
        Dim xs As XmlSerializer
        Dim sr As StreamReader
        Dim cm As ConfigManager
 
        Try
 
            ' Pfad zusammensetzen aus Programm.exe.Config Datei
            Dim dcf As String = ConfigurationSettings.AppSettings.Item( _
              "DirectoryConfigFile")
 
            configPath = Environment.GetFolderPath(DirectCast( _
              [Enum].Parse(GetType(Environment.SpecialFolder), dcf), _
              Environment.SpecialFolder))
 
            configPath &= "\" & ConfigurationSettings.AppSettings.Item( _
              "LocalPathConfigFile")
 
            ' Wenn die Datei noch nicht existiert, leere Instanz
            ' zurückgeben
            If Not File.Exists(configPath) Then
                cm = New ConfigManager
                cm.Data = New ConfigData
                Return cm
            End If
 
            ' XmlSerializer-Instanz für diese Klasse
            xs = New XmlSerializer(GetType(ConfigManager))
 
            ' Datei mit StreamReader öffnen
            sr = New StreamReader(configPath)
 
            ' Deserialisieren
            cm = DirectCast(xs.Deserialize(sr), ConfigManager)
 
            ' Daten als Geladen vermerken
            cm.DataLoaded = True
 
            ' Anzahl Starts inkrementieren
            cm.NumberOfStarts += 1
 
            ' Kein Fehler, Rückgabe der deserialisierten Daten
            Return cm
 
        Catch ex As Exception
            ' Bei Fehlern Exception als InnerException weiterreichen
            Throw New Exception( _
              "Laden der Konfigurationsdaten nicht möglich", ex)
 
        Finally
            ' Datei schließen
            If Not sr Is Nothing Then sr.Close()
 
        End Try
 
    End Function