Запись/чтение структур из файла с произвольным доступом

Structure zapis
Dim naimen As String
Dim proizvod As String
Dim strana As String
Dim harakter As String
Dim price As String
End Structure

Private Sub ****
 
FileOpen(1,"путь",OpenMode.Random)
Dim z as zapis
'заполнил все поля 
Fileput(1, z)
Fileclose(1)
 
End Sub

Dim z(5) As zapis
'заполнил все поля 
FileOpen(1, "путь", OpenMode.Random)
        For I As Integer = 1 To 5
            FilePut(1, z(I))
        Next
        FileClose(1)

Imports System.IO
Imports System.Runtime.InteropServices
 
Namespace VBConsoleApplication1
    Module Module1
        <StructLayout(LayoutKind.Sequential, CharSet:=CharSet.Unicode, Pack:=1)> _
        Class DATA
            <MarshalAs(UnmanagedType.ByValTStr, SizeConst:=100)> _
            Public naimen As String
            <MarshalAs(UnmanagedType.ByValTStr, SizeConst:=100)> _
            Public proizvod As String
            <MarshalAs(UnmanagedType.ByValTStr, SizeConst:=100)> _
            Public strana As String
            <MarshalAs(UnmanagedType.ByValTStr, SizeConst:=100)> _
            Public harakter As String
            <MarshalAs(UnmanagedType.ByValTStr, SizeConst:=100)> _
            Public price As String
        End Class
 
        Sub Main(args As String())
            Dim data As New DATA()
            data.naimen = "1"
            data.harakter = "1"
            data.price = "1"
            data.proizvod = "1"
            ' Запись
            Using fs As FileStream = File.Open("data.txt", FileMode.Create)
                fs.Write(GetBytes(data), 0, Marshal.SizeOf(data))
                fs.Flush()
            End Using
            ' Чтение
            Using fs As FileStream = File.Open("data.txt", FileMode.Open)
                Dim buff As Byte() = New Byte(Marshal.SizeOf(data) - 1) {}
                fs.Read(buff, 0, buff.Length)
                WriteBytes(data, buff)
            End Using
        End Sub
        ''' <summary>
        ''' Перевод объекта в байтовый массив.
        ''' </summary>
        ''' <param name="data">Объект.</param>
        Function GetBytes(data As Object) As Byte()
            Dim buff As Byte() = New Byte(Marshal.SizeOf(data) - 1) {}
            Dim pMem As IntPtr = Marshal.AllocHGlobal(buff.Length)
 
            Marshal.StructureToPtr(data, pMem, False)
            Marshal.Copy(pMem, buff, 0, buff.Length)
            Marshal.FreeHGlobal(pMem)
 
            Return buff
        End Function
        ''' <summary>
        ''' Запись байтового массива по адресу памяти, по которому расположен объект.
        ''' </summary>
        ''' <param name="data">Объект.</param>
        ''' <param name="buffer">Байтовый массив.</param>
        ''' <remarks></remarks>
        Sub WriteBytes(data As Object, buffer As Byte())
            If Marshal.SizeOf(data) < buffer.Length Then
                Throw New ArgumentOutOfRangeException("buffer length")
            End If
 
            Dim pMem As IntPtr = Marshal.AllocHGlobal(Marshal.SizeOf(data))
 
            Marshal.StructureToPtr(data, pMem, True)
            Marshal.Copy(buffer, 0, pMem, buffer.Length)
            Marshal.PtrToStructure(pMem, data)
            Marshal.FreeHGlobal(pMem)
        End Sub
    End Module
End Namespace

z(<номер записи>).naimen = <значение>
z(<номер записи>).proizvod = <значение>
'..........................

kolvo=lof(1)/len(z) 'Размер файла делить на размер записи

Dim file As String = OpenFileDialog1.FileName
            FileOpen(1, file, OpenMode.Random)
            While Not EOF(1)
                ReDim Preserve zapis(i)
                FileGet(1, zapis(i))
                i = i + 1
            End While
 
            FileClose(1)
        
        h = i - 1

Fileput(1, zapis,h+1)