Как создать файловую структуру внутри структуры?

---

Я хотел бы знать, что не так с этим кодом, потому что каждый раз, когда я пытаюсь запустить этот код, он дает мне Error: Bad record length.

Public Structure WorkersSource
        <vbfixedstring(20)> Public Code As String
        <vbfixedstring(20)> Public FirstName As String
        <vbfixedstring(20)> Public LastName As String
        <vbfixedstring(20)> Public PhoneNumber As String
        <vbfixedstring(20)> Public Job As String
        Public Salary As Double
        Public Position As Integer
        <vbfixedstring(20)> Public UserName As String
        <vbfixedstring(20)> Public Password As String
        <vbfixedarray(6)> Public PayingDaliy() As WorkersPD
    End Structure

    Public Structure WorkersPD
        <vbfixedstring(20)> Public Day As String
        Public DateOfWeek As Date
        Public PayingOfDay As Double
        Public Present As Boolean
        Public Debts As Double
        Public Purchases As Double
        Public PayingNet As Double
    End Structure

    Public Sub AddWRecord(ByVal TmpRecordWorkerType As WorkersSource)
        Dim DataRecord As New WorkersSource
        Dim FileNum As Integer = FreeFile()

        FileOpen(FileNum, TmpFileName, OpenMode.Random, , , Len(DataRecord))

        With DataRecord
            .Code = TmpRecordWorkerType.Code
            .FirstName = TmpRecordWorkerType.FirstName
            .LastName = TmpRecordWorkerType.LastName
            .PhoneNumber = TmpRecordWorkerType.PhoneNumber
            .Job = TmpRecordWorkerType.Job
            .Salary = TmpRecordWorkerType.Salary
            .Position = TmpRecordWorkerType.Position
            .UserName = TmpRecordWorkerType.UserName
            .Password = TmpRecordWorkerType.Password

            For I = 0 To 6
                 .PayingDaliy(I).Day = TmpMonday.AddDays(I).ToString("dddd")
                 .PayingDaliy(I).DateOfWeek = TmpMonday.AddDays(I)
                 .PayingDaliy(I).PayingOfDay = 0.00
                 .PayingDaliy(I).Present = False
                 .PayingDaliy(I).Debts = 0.00
                 .PayingDaliy(I).Purchases = 0.00
                 .PayingDaliy(I).PayingNet = 0.00
            Next

        End With

            FilePut(FileNum, DataRecord, TotalWorkers.Count)

            FileClose(FileNum)

    End Function

Этот код должен сохранять массив информации о работнике и внутри этого массива есть еще один массив финансового положения работника за неделю и вся информация должна быть сохранена в файл который будет содержать остальных работников вот почему там есть еще один массив информации о финансовом положении работника за неделю "TotalWorkers.Count"

Есть ли какое-то решение?

Спасибо

Что я уже пробовал:

Я пытался переделать платежную систему, прежде чем дать ей значения, но это не сработало.

---