Public Function WriteData(ByVal FileName As String, _
                 Optional ByRef Meldung As String = "") As Boolean
 
        'Struktur-Variable 'gPersVar' in Datei eintragen
 
        Try
            'Formatter für die Serialisierung erstellen
            Dim Formatter As New _
            System.Runtime.Serialization.Formatters.Binary. _
            BinaryFormatter()
 
            'Dateistream erstellen
            Dim FileStream As System.IO.Stream = _
            System.IO.File.Create(FileName)
 
            'Strukturvariable serialisieren 
            Formatter.Serialize(FileStream, gPersVar)
 
            'Stream wieder schließen 
            FileStream.Close()
 
            'Funktionsrückgabe
            WriteData = True : Meldung = ""
        Catch ex As Exception
            Meldung = ex.Message
        End Try
 
    End Function