Где найти описание алгоритма по которому VB пакует UDT- структуры для записи в Binary- файл?

Public Type MyUDT
    one As Long
    two As Single
    three As String
    four As Byte
End Type
 
Public Function Test() As Long
    Dim arr() As MyUDT
    Dim FileName As String
    FileName = 'c:/test'
    ReDim arr(3)
    With arr(0)
        .one = 10
        .two = 1.1111
        .three = 'abcd'
        .four = 40
    End With
    With arr(1)
        .one = 11
        .two = 2.2222
        .three = 'text_text_text_text'
        .four = 41
    End With
    With arr(2)
        .one = 12
        .two = 3.3333
        .three = 'three2'
        .four = 42
    End With
    With arr(3)
        .one = 13
        .two = 4.4444
        .three = 'thr'
        .four = 43
    End With
    FileWrite arr(), FileName
    FileRead arr(), FileName
End Function
 
Public Sub FileWrite(arr() As MyUDT, FileName As String)
    Dim ID As Long
    'Simple file writer - for example only
    '! No error handling !
    ID = FreeFile()
    Open FileName For Binary As ID
    Put ID, , arr()
    Close ID
End Sub
 
Public Sub FileRead(arr() As MyUDT, FileName As String)
    Dim ID As Long
    'Simple file reader - for example only
    '! No error handling !
    ID = FreeFile()
    Open FileName For Binary As ID
    Get ID, , arr()
    Close ID
End Sub

Private Type UDTType
  uuParam1 As Long  ' Position
  uuParam2 As Long  ' Code
  uuParam3 As Long  ' Strategy
End Type
Dim a As UDTType