stanly try these:
private Sub mscomm1_oncomm()
dim sdata() as byte
dim re_data() as byte
dim i as integer
if mscomm1.commevent=comevreveive then
sdata=mscomm1.input
end if
re_data=sdata
cls
for i = 0 to ubound(re_data)
print re_data(i)
next i
end sub
ps. select the mode in binary mode can read the value from #00h to #0ffh
to read the data from buffer you may need the
ubound & lbound to verify the data string from bigging to end , check your vb help
i do used these to recieved data that sended from mcu
it works find , please try again see what happen
have fun