Public Structure Bundesbruder_Dat
        Dim ID As Integer
        Dim Anrede As String
        Dim Name As String
        Dim GebName As String
        Dim Vorname As String
        Dim GebDat As Date
        Dim GebOrt As String
        Dim Lebenswerk() As String
        ...
    End Structure

Public Bundesbrüder() As Bundesbruder_Dat[/Code]
 
Hier der Speicheraufruf, der funktioniert:
 
' Funktion um das Bundesbrüder Array in Datei zu speichern
<pre><code>    Public Sub SaveBundesbrüder(ByVal vArray As Object)
 
        Dim F As Integer
        Dim nCount As Long
 
        ' Falls Datei vorhanden, zunächst löschen
        If Dir$(sFile) <> "" Then Kill(sFile)
 
        ' Datei im Binary-Mode öffnen
        F = FreeFile()
        FileOpen(F, sFile, OpenMode.Binary)
 
        ' Anzahl Elemente speichern
        nCount = UBound(vArray)
        FilePut(F, nCount)
 
        ' Array-Elemente speichern
        FilePutObject(F, vArray)
        FileClose(F)
    End Sub

Public Sub ReadBundesbrüder()
        Dim F As Integer
        Dim nCount As Long
 
        ' Datei im BinaryMode öffnen
        If Len(Dir$(sFile)) > 0 Then
            F = FreeFile()
            FileOpen(F, sFile, OpenMode.Binary)
 
            ' Anzahl Elemente lesen
            FileGet(F, nCount)
 
            ' Array dimensionieren und einlesen
            ReDim Bundesbrüder(nCount)
            FileGetObject(F, Bundesbrüder)*
            FileClose(F)
        End If
    End Sub

Private Sub DatensatzLadenToolStripMenuItem_Click(ByVal sender As _
  System.Object, ByVal e As System.EventArgs) Handles _
  DatensatzLadenToolStripMenuItem.Click
        ReDim Bundesbrüder(0)
        Call Funktionen.ReadBundesbrüder()
    End Sub