Sub WriteRawFileToFile(ByVal BigFile As BigFileStruct(), ByVal Filename As _
    String)
        Dim bf As New _
        System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
        Dim fStream As New FileStream(Filename, FileMode.OpenOrCreate)
        bf.Serialize(fStream, BigFile) ' write to file
    End Sub

  'eine Struktur 
  <System.Serializable>
    Private Structure Anything
 
        Dim a As Integer
        Dim b As String
        Dim c As Decimal
        Dim d As String
        Dim e As Double
    End Structure
 
 
  Private Sub SerializeTest()
 
        Dim Big(800000) As Anything
 
        'Testdaten
        For i As Integer = 0 To Big.Length - 1
            Big(i) = New Anything With
            {.a = i, .b = New String(CChar(i.ToString), 10),
            .c = i / 123, .d = .b, .e = i * 1.456}
        Next i
 
 
        Dim fmt As New _
            System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
 
        'raus
        Using fs As New IO.FileStream("H:\Test\anything.ser",
                                      IO.FileMode.Create, IO.FileAccess.Write)
            fmt.Serialize(fs, Big)
        End Using
 
        Dim big2() As Anything
 
        'rein
        Using fs As New IO.FileStream("H:\Test\anything.ser",
                                      IO.FileMode.Open, IO.FileAccess.Read)
            big2 = DirectCast(fmt.Deserialize(fs), Anything())
        End Using
 
        'check
        For i As Integer = 0 To Big.Length - 1
            If Big(i).a <> big2(i).a Then Stop
            If Big(i).b <> big2(i).b Then Stop
            If Big(i).c <> big2(i).c Then Stop
            If Big(i).d <> big2(i).d Then Stop
            If Big(i).e <> big2(i).e Then Stop
        Next i
 
    End Sub