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

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 Const ACM_METRIC_MAX_SIZE_FORMAT As Long = &H32
Private Const ACMFORMATDETAILS_FORMAT_CHARS As Long = &H80
Private Const ACM_FORMATENUMF_CONVERT As Long = &H100000
Private Const WAVE_FORMAT_MPEGLAYER3        As Long = &H55
 
Public Type WAVEFORMATEX
   wFormatTag As Integer
   nChannels As Integer
   nSamplesPerSec As Long
   nAvgBytesPerSec As Long
   nBlockAlign As Integer
   wBitsPerSample As Integer
   cbSize As Integer
End Type
 
Private Type ACMFORMATDETAILS
    cbStruct      As Long
    dwFormatIndex As Long
    dwFormatTag   As Long
    fdwSupport    As Long
    pwfx          As Long
    cbwfx         As Long
    szFormat(ACMFORMATDETAILS_FORMAT_CHARS - 1) As Integer
End Type
 
Private Type MPEGLAYER3WAVEFORMAT
    wFormatTag          As Integer
    nChannels           As Integer
    nSamplesPerSec      As Long
    nAvgBytesPerSec     As Long
    nBlockAlign         As Integer
    wBitsPerSample      As Integer
    cbSize              As Integer
    wID                 As Integer
    fdwFlags            As Long
    nBlockSize          As Integer
    nFramesPerBlock     As Integer
    nCodecDelay         As Integer
End Type
 
Public Type MP3FormatDescription
    sDisplayName    As String
    tFormat         As MPEGLAYER3WAVEFORMAT
End Type
 
Private Type FormatBuffer
    lPointer    As Long
    lBufferSize As Long
    tData()     As MP3FormatDescription
End Type
 
Private Declare Function acmMetrics Lib "msacm32" (ByVal hao As Long, ByVal uMetric As Long, ByRef pMetric As Long) As Long
Private Declare Function acmFormatEnum Lib "msacm32.dll" Alias "acmFormatEnumW" (ByVal had As Long, ByRef pafd As ACMFORMATDETAILS, _
                                                                                 ByVal fnCallback As Long, ByVal dwInstance As Long, ByVal fdwEnum As Long) As Long
 
Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (Destination As Any, Source As Any, ByVal Length As Long)
Private Declare Function GetMem2 Lib "msvbvm60.dll" (ByRef pSrc As Any, ByRef pDst As Any) As Long
 
Public Sub Main()
    Dim tSrc    As WAVEFORMATEX
    Dim tDst()  As MP3FormatDescription
    
    tSrc.wFormatTag = 1
    tSrc.nChannels = 2
    tSrc.nSamplesPerSec = 44100
    tSrc.wBitsPerSample = 16
    tSrc.nBlockAlign = tSrc.wBitsPerSample \ 8 * tSrc.nChannels
    tSrc.nAvgBytesPerSec = tSrc.nBlockAlign * tSrc.nSamplesPerSec
    
    GetListOfAvailableFormats tSrc, tDst
    
End Sub
 
Public Function GetListOfAvailableFormats( _
                ByRef tSrcFormat As WAVEFORMATEX, _
                ByRef tFormats() As MP3FormatDescription) As Long
    Dim Fd          As ACMFORMATDETAILS
    Dim lMaxSize    As Long
    Dim bFormat()   As Byte
    Dim tBuffer     As FormatBuffer
    
    ReDim tFormats(100)
    
    If acmMetrics(0, ACM_METRIC_MAX_SIZE_FORMAT, lMaxSize) Then
        Exit Function
    End If
    
    ReDim bFormat(lMaxSize - 1)
    
    CopyMemory bFormat(0), tSrcFormat, Len(tSrcFormat)
    
    Fd.cbStruct = Len(Fd)
    Fd.cbwfx = lMaxSize
    Fd.pwfx = VarPtr(bFormat(0))
    
    If acmFormatEnum(0, Fd, AddressOf acmFormatEnumCallback, VarPtr(tBuffer), ACM_FORMATENUMF_CONVERT) Then
        Exit Function
    End If
    
    If tBuffer.lPointer Then
    
        ReDim Preserve tBuffer.tData(tBuffer.lPointer - 1)
        tFormats() = tBuffer.tData()
        
        GetListOfAvailableFormats = tBuffer.lPointer
        
    Else
        Erase tFormats()
    End If
    
End Function
 
Private Function acmFormatEnumCallback( _
                 ByVal hadid As Long, _
                 ByRef pafd As ACMFORMATDETAILS, _
                 ByRef tBuffer As FormatBuffer, _
                 ByVal fdwSupport As Long) As Long
    Dim lTag    As Long
    Dim lIndex  As Long
    
    ' // Check format tag
    GetMem2 ByVal pafd.pwfx, lTag
    
    If lTag = WAVE_FORMAT_MPEGLAYER3 Then
        
        If tBuffer.lBufferSize = 0 Then
            ReDim tBuffer.tData(100)
            tBuffer.lBufferSize = UBound(tBuffer.tData) - 1
        Else
            If tBuffer.lPointer >= tBuffer.lBufferSize Then
                ReDim Preserve tBuffer.tData(tBuffer.lPointer + 100)
                tBuffer.lBufferSize = UBound(tBuffer.tData) - 1
            End If
        End If
        
        With tBuffer.tData(tBuffer.lPointer)
        
            CopyMemory .tFormat, ByVal pafd.pwfx, Len(.tFormat)
        
            .sDisplayName = Space$(ACMFORMATDETAILS_FORMAT_CHARS)
        
            CopyMemory ByVal StrPtr(.sDisplayName), pafd.szFormat(0), ACMFORMATDETAILS_FORMAT_CHARS * 2
            
            lIndex = InStr(1, .sDisplayName, vbNullChar)
            
            If lIndex Then
                .sDisplayName = Left$(.sDisplayName, lIndex - 1)
            End If
            
        End With
        
        tBuffer.lPointer = tBuffer.lPointer + 1
        
    End If
    
    acmFormatEnumCallback = 1
    
End Function

      'Сбрасываем на диск для проверки
      OPEN "проверка.wav" FOR binary AS # int_file_number
        PuT # int_file_number, 1, udt_WAV_file_header
        PuT # int_file_number, 45, arr_Byte_array()      
      CLOSE # int_file_number