Как сохранить массив с типом "структура" в файл, а затем читать из него?

' Здесть я объявляю пользовательскую структуру
Public Structure myZakaz
    Dim DayZak As Date
    Dim TimeZak As String
    Dim NumZak As String
    Dim NameZak As String
    Dim TypeTransp As Integer
    Dim StatusZak As Integer
    Dim CommentZak As String
End Structure
 
' Тут массив из этой структуры
Public mZak(7, 12) As myZakaz

Dim File As System.IO.File
File.WriteAllLines("myData.sdf", mZak, Encoding.UTF8)

FileOpen(1, Application.StartupPath & "\myData.sdf", OpenMode.Random)
 
        For Me.intDays = 1 To 7
            For Me.intHours = 1 To 12
                FilePut(1, mZak(intDays, intHours))
            Next
        Next

Imports System.Text

    <System.Serializable()> Public Structure myZakaz
        Dim DayZak As Date
        Dim TimeZak As String
        Dim NumZak As String
        Dim NameZak As String
        Dim TypeTransp As Integer
        Dim StatusZak As Integer
        Dim CommentZak As String
    End Structure
 
    ' Тут массив из этой структуры
    Public mZak(7, 12) As myZakaz
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        'Запись
        Dim formatter As New Runtime.Serialization.Formatters.Binary.BinaryFormatter()
        Using stream As IO.Stream = IO.File.Create("C:\ListTest.bin")
            formatter.Serialize(stream, mZak)
        End Using
    End Sub
 
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Dim formatter As New Runtime.Serialization.Formatters.Binary.BinaryFormatter()
        Using stream As IO.Stream = IO.File.Open("C:\ListTest.bin", IO.FileMode.Open)
            mZak = formatter.Deserialize(stream) 'Читаем из файла
        End Using
    End Sub