dim BY[8] as integer
wait (500)

Variable=0xabcdef 'enter the hex value abcdef to the variable
can_id=0x601' enter as can id hex value 601
command=0x40' enter command hex value 40
length=3

by[6]=Variable
Variable=Variable>>8 'right shift one byte
by[5]=Variable

setcommand(_cs,1,can_id)
setcommand(_cs,3,Command)
setcommand(_cs,4,by[6])
setcommand(_cs,5,by[5])
setcommand(_cs,2,length)