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