Sub CombineBytes(arr1() As Byte, arr2() As Byte) As Byte()
Dim res(arr1.Length + arr2.Length) As Byte
Dim bc As ByteConverter 'ByteConverter library
bc.ArrayCopy(arr1, 0, res, 0, arr1.Length)
bc.ArrayCopy(arr2, 0, res, arr1.Length, arr2.Length)
Return res
End Sub