Public Shared Function ObjektSpeichern( _
      ByVal Objekt As Object, _
      ByVal Speicherpfad As String) As Boolean
 
        Dim Serializer As System.Xml.Serialization.XmlSerializer
        Dim Stream As System.IO.FileStream = Nothing
 
        Try
            ' Stream zum Speichern öffen
            Stream = New System.IO.FileStream(Speicherpfad, _
              IO.FileMode.Create)
            ' Übergebene Klasse in das XML-Format serialisieren
            Serializer = _
              New System.Xml.Serialization.XmlSerializer( _
              Objekt.GetType)
            ' Objekt abspeichern
            Serializer.Serialize(Stream, Objekt)
            ' Stream wieder schließen
            Stream.Close()
 
            Return True
        Catch ex As Exception
            If Not Stream Is Nothing Then
                Stream.Close()
            End If
            Debug.Print("Fehler" & ex.Message)
            Return False
        End Try
    End Function
 
    Public Shared Function ObjektLaden( _
      ByVal Ladepfad As String, _
      ByVal Objekt As Type) _
      As Object
 
        Dim Serializer As System.Xml.Serialization.XmlSerializer
        Dim Stream As System.IO.FileStream = Nothing
 
        Try
            ' Stream zum Lesen äffen
            Stream = New System.IO.FileStream(Ladepfad, IO.FileMode.Open)
            ' Übergebene Klasse in das XML-Format serialisieren
            Serializer = _
              New System.Xml.Serialization.XmlSerializer(Objekt)
 
            Dim obj As Object = Serializer.Deserialize(Stream)
 
            ' Stream wieder schließen
            Stream.Close()
 
            Return obj
 
        Catch ex As Exception
            If Not Stream Is Nothing Then
                Stream.Close()
            End If
            Debug.Print("Fehler" & ex.Message)
            Return False
        End Try
    End Function
 
    Private Sub xsave()
 
        ' Objekt mit der Class1 zum Testen deklarieren
        Dim oSpeichern As New Class1
 
        ' Objekt befüllen
        oSpeichern.Boolean1 = True
        oSpeichern.Integer1 = 1234
        oSpeichern.String1 = "ABC"
        oSpeichern.String2 = "defg"
 
        ' Objekt auf dem Desktop speichern
        Dim sPfad As String
        sPfad = System.Environment.GetFolderPath( _
          Environment.SpecialFolder.Desktop)
        sPfad = sPfad & "\Test.xml"
        ObjektSpeichern(oSpeichern, sPfad)
    End Sub
 
    Private Sub xload()
 
        ' Objekt mit der Class1 zum Testen deklarieren
        Dim oLaden As Class1
 
        ' Objekt mit der Datei auf dem Desktop befüllen
        Dim sPfad As String
        sPfad = System.Environment.GetFolderPath( _
          Environment.SpecialFolder.Desktop)
        sPfad = sPfad & "\Test.xml"
        If IO.File.Exists(sPfad) Then
            oLaden = ObjektLaden(sPfad, GetType(Class1))
 
            ' Inhalt des Testobjekts in das Direktfenster ausgeben
            Debug.Print(CStr(oLaden.Boolean1))
            Debug.Print(CStr(oLaden.Integer1))
            Debug.Print(oLaden.String1)
            Debug.Print(oLaden.String2)
        Else
            Debug.Print("Die Datei: " & sPfad & " ist nicht vorhanden")
        End If
    End Sub

Those people who think they know everything are a great annoyance to those of us who do - Isaac Asimov