Сохранение и загрузка массива в бинарный файл

        Dim b(640, 640) As UInt16
        For i = 0 To 640
            For j = 0 To 640
                b(i, j) = Rnd() * 999
            Next
        Next
        Dim m As New System.Text.StringBuilder
 
        For i = 0 To 640
            For j = 0 To 640
                m.Append(b(i, j) & vbCrLf)
            Next
        Next
        m = m.Remove(m.Length - 2, 2)
        IO.File.WriteAllText("C:\1.txt", m.ToString)
 
 
 
        'чтение
        Dim g As String() = IO.File.ReadAllLines("C:\1.txt")
        Dim index As Integer = 0
        Dim h(640, 640) As UInt16
        For i = 0 To 640
            For j = 0 To 640
                h(i, j) = g(index)
                index += 1
            Next
        Next

Dim m(640, 640) as uint16
dim e as new filestream("c:\1.dat", openoncreate)
dim w as new binarywriter(e)
for i=0 to 639
   for j=0 to 639
      w.write(m(i,j))
   next j
next i
w.close() : e.close()