请问高手

OMRON C200HX用VB通讯

private sub timer1_timer()

temp=temp+1

call order_num

if  temp>2 then temp=0

sub order_num

select   case  temp

case  1

        mscomm1.output= "@00rd0102000154" +"*"  ｃｈｒ（13)

       text1.text = ｍｉｄ（mscomm1.input,8,4)

cas 2

       mscomm1.output= "@00rd0100000156" +"*"  ｃｈｒ（13)

       text2.text = ｍｉｄ（mscomm1.input,8,4)

end select

end sub

我读上来的数据是text1.text里是"@00rd0100000156" +"*"  ｃｈｒ（13) 而text2.text里是"@00rd0102000154" +"*"  ｃｈｒ（13)。二个数据读错了，请问高手该怎么解决。

谢谢