Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (pDst As Any, pSrc As Any, ByVal ByteLen As Long)
'
Function ByteArrayToStruct(ByRef baData() As Byte) As TYPE_A_SPECIFIER
Dim lLen As Long
lLen = UBound(baData) - LBound(baData) + 1
CopyMemory ByteArrayToStruct, baData(0), lLen
End Function