Maybe this will help
char var byte[2]
hserin 5000, Timeout, [(WAIT "Start:"),Char]' one char
hserin 5000, Timeout, [(WAIT "Start:"),str Char\2]' 2char or hserin 5000, Timeout, [(WAIT "Start:"),Char[0],char[1]]'
LCDOUT "MY DATA = ", DEc Char or LCDOUT "MY DATA = ", DEc Char[0]," ", DEc Char[1]," "
And send from PC:
Dim ByteArray(4) as Array
ByteArray(0)=10
ByteArray(1)=20
'send only one byte
com1.Write("Start:")
com1.Write(ByteArray,0,1)
'send only two byte
com1.Write("Start:")
com1.Write(ByteArray,0,2)