>>769
こんなのになった。

Function AddByteArray(Byte1() As Byte, ByVal Byte1AddIndex As Long, Byte2() As Byte) As Long
Dim Byte2Size As Long
'Byte1AddIndexはByte1に追加する位置ね。戻り値=コピーしたバイト数

Byte2Size = UBound(Byte2) + 1
If UBound(Byte1) < Byte1AddIndex + Byte2Size Then Exit Function
CopyMemory VarPtr(Byte1(Byte1AddIndex)), VarPtr(Byte2(0)), Byte2Size
AddByteArray = Byte2Size
End Function

俺もVBの標準関数で出来るんならそっち使うけど。

>>770
Byte型だからってのもあるみたいね。