Как грамотно соединить структуру с массивом?

Option Explicit
 
Private Type MyUDT
  A As Integer
  B As Long
End Type
 
 
Private Sub Command1_Click()
  Dim udt_MyUDT As MyUDT
  Dim arr_Byte_array(1 To 3)  As Byte
  Dim arr_Total_array()  As Byte
 
 udt_MyUDT.A = 1
 udt_MyUDT.B = 2
 
  arr_Byte_array(1) = 3
  arr_Byte_array(2) = 4
  arr_Byte_array(3) = 5
 
 arr_Total_array() = ' ??????????????????????????????????????????????????????????
 
End Sub

Option Explicit
 
Private Type MyUDT
  A As Integer
  B As Long
End Type
 
 
Private Sub Command1_Click()
  Dim udt_MyUDT As MyUDT
  Dim arr_Byte_array(1 To 3)  As Byte
  Dim arr_Total_array()  As Byte
 
 udt_MyUDT.A = 1
 udt_MyUDT.B = 2
 
  arr_Byte_array(1) = 3
  arr_Byte_array(2) = 4
  arr_Byte_array(3) = 5
 
 arr_Total_array() = ' ??????????????????????????????????????????????????????????
 
End Sub

Option Explicit
 
Private Type MyUDT
  A As Integer
  B As Long
End Type
 
 
Private Sub Command1_Click()
  Dim udt_MyUDT As MyUDT
  Dim arr_Byte_array(1 To 3)  As Byte
  Dim arr_Total_array()  As Byte
 
 udt_MyUDT.A = 1
 udt_MyUDT.B = 2
 
  arr_Byte_array(1) = 3
  arr_Byte_array(2) = 4
  arr_Byte_array(3) = 5
 
' здесь какие-то промежуточные операции
 
 arr_Total_array() = ' ??????????????????????????????????????????????????????????
 
End Sub

Option Explicit
 
Private Declare Sub CopyMemory Lib "kernel32" _
                    Alias "RtlMoveMemory" ( _
                    ByRef Destination As Any, _
                    ByRef Source As Any, _
                    ByVal Length As Long)
 
Private Type MyUDT
  A As Integer
  B As Long
End Type
 
Private Sub Command1_Click()
  Dim udt_MyUDT As MyUDT
  Dim arr_Byte_array(1 To 3)  As Byte
  Dim arr_Total_array()  As Byte
 
  udt_MyUDT.A = 1
  udt_MyUDT.B = 2
 
  arr_Byte_array(1) = 3
  arr_Byte_array(2) = 4
  arr_Byte_array(3) = 5
  
  ' // Выделяем память для структуры и массива
  ReDim arr_Total_array(LenB(udt_MyUDT) + UBound(arr_Byte_array) - 1)
  
  CopyMemory arr_Total_array(0), udt_MyUDT, LenB(udt_MyUDT)
  CopyMemory arr_Total_array(LenB(udt_MyUDT)), arr_Byte_array(1), UBound(arr_Byte_array)
  
  ' // Проверка
  Dim i As Long
  
  For i = LBound(arr_Total_array) To UBound(arr_Total_array)
    Debug.Print arr_Total_array(i); ", ";
  Next
  
End Sub

Option Explicit
 
Private Declare Function CreateNamedPipe Lib "kernel32" _
                         Alias "CreateNamedPipeA" ( _
                         ByVal lpName As String, _
                         ByVal dwOpenMode As Long, _
                         ByVal dwPipeMode As Long, _
                         ByVal nMaxInstances As Long, _
                         ByVal nOutBufferSize As Long, _
                         ByVal nInBufferSize As Long, _
                         ByVal nDefaultTimeOut As Long, _
                         ByRef lpSecurityAttributes As Any) As Long
Private Declare Function CloseHandle Lib "kernel32" (ByVal hObject As Long) As Long
Private Declare Function PeekNamedPipe Lib "kernel32" ( _
                         ByVal hNamedPipe As Long, _
                         ByRef lpBuffer As Any, _
                         ByVal nBufferSize As Long, _
                         ByRef lpBytesRead As Long, _
                         ByRef lpTotalBytesAvail As Long, _
                         ByRef lpBytesLeftThisMessage As Long) As Long
Private Declare Function ReadFile Lib "kernel32" ( _
                         ByVal hFile As Long, _
                         ByRef lpBuffer As Any, _
                         ByVal nNumberOfBytesToRead As Long, _
                         ByRef lpNumberOfBytesRead As Long, _
                         ByRef lpOverlapped As Any) As Long
 
Private Type MyUDT
  A As Integer
  B As Long
End Type
 
Private Sub Form_Load()
    Dim hPipe       As OLE_HANDLE
    Dim iFN         As Integer
    Dim tUdt        As MyUDT
    Dim bArr(2)     As Byte
    Dim lTotalSize  As Long
    Dim bResult()   As Byte
    
    tUdt.A = 1
    tUdt.B = 2
    
    bArr(0) = 3
    bArr(1) = 4
    bArr(2) = 5
    
    hPipe = CreateNamedPipe("\\.\pipe\vbpipe", 3, 0, 255, -1, -1, 0, ByVal 0&)
    If hPipe = -1 Then Err.Raise 7
    
    iFN = FreeFile
    
    Open "\\.\pipe\vbpipe" For Binary As iFN
    ' // Сериализуем UDT
    Put 1, , tUdt
    ' // Добавляем массив
    Put 1, , bArr
    ' // Добавляем строку
    Put 1, , "hello!"
    
    Close 1
    
    If PeekNamedPipe(hPipe, ByVal 0&, 0, ByVal 0&, lTotalSize, 0) <> 0 Then
        If lTotalSize > 0 Then
            ReDim bResult(lTotalSize - 1)
            If ReadFile(hPipe, bResult(0), lTotalSize, 0, ByVal 0&) = 0 Then
                CloseHandle hPipe
                Err.Raise 7
            End If
        End If
    End If
    
    CloseHandle hPipe
 
 
  ' // Проверка
  Dim i As Long
  
  For i = LBound(bResult) To UBound(bResult)
    Debug.Print bResult(i); ", ";
  Next
 
End Sub

Option Explicit
 
Private Type tA
    l As Long
    z As Double
End Type
 
Private Type tB
    q As Currency
    t As tA
    b As Byte
    j As Integer
End Type
 
Private Type tBuf
    bChunk(1024)    As Byte
End Type
 
Private Sub Form_Load()
    Dim t   As tB
    Dim b() As Byte
    
    t.b = 12
    t.q = 10@
    t.t.l = 1024
    t.t.z = 1.3
    t.j = 14
    
    b = SerializeB(t)
    
    Dim i As Long
    
    For i = 0 To UBound(b)
        Debug.Print b(i); ", ";
    Next
    
    
End Sub
 
Private Function SerializeB( _
                 t As tB) As Byte()
    Dim i   As Long
    Dim r() As Byte
    Static tBuf As tBuf
    
    LSet tBuf = t
    
    ReDim r(LenB(t) - 1)
    
    For i = 0 To LenB(t) - 1
        r(i) = tBuf.bChunk(i)
    Next
    
    SerializeB = r
    
End Function

    For i = 0 To LenB(t) - 1
        r(i) = tBuf.bChunk(i)
    Next