thank you all friend spetialy Daniel Contarino for his/her code .
i fond my mistake . i use fixed batyte array so i recived error
my first code
dim a(3) as byte
a=mycom.input
if a(0)=.......

but i change my code
dim a() as byte
a=mycom.input
if a(0)=.......
and i recived my desired respons from 8055