vb 怎么接收压缩BCD码数据

vb 如何接收压缩BCD码数据
请问高手，我想用vb 的socket 控件接收压缩BCD码数据，然后用字符串或者数字的格式显示，不知道如何实现，请高手指点。不胜感激！

[解决办法]

VB code

dim bcd() as bytedim dec as stringdim i as longredim bcd(2)bcd(0)=&h12bcd(1)=&h34bcd(2)=&h56dec=""for i=0 to 2    dec=dec & right("0"+hex$(bcd(i)),2)next idebug.print decdebug.print val(dec)