Dim arr1() As Byte = Array As Byte(0x55, 0xaa, 0x00, 0x00, 0x00, 0x00, 0x00, 0x01, 0x0a)
'Dim arr2() As Byte = Array As Byte(serial(9), serial(10), serial(11), serial(12), serial(13), serial(14), serial(15), serial(16), serial(17), serial(18))
Dim arr2() As Byte = Array As Byte(0x01,0x02,0x03,0x04,0x05,0x06,0x07,0x08,0x09,0x0a)
Dim arr(arr1.Length + arr2.Length) As Byte
For i = 0 To arr1.length -1
arr(i) = arr1(i)
Next
For j = 0 To arr2.length - 1
arr(i+j) = arr2(j)
Next
For i = 0 To arr.Length - 1
Log(arr(i))
Next