我接收到的数据是10101010101010011001   前4位代表 产品名称   4-8代表温度   8-12代表速度   12-16代表瑕疵点     
接收的1010这样的数据，我想做到， 自动转换成十进字或转换文字过来之后再填入相应的列吗？  
还有就是我接收的数据是实时变化的   可以做到 当产品名称变化了 才自动增加一行 也就说当产品没有换   数据还是在接收     当产品名换了 才知道增加一行。
我想增加做一个  实时监控数据   当换产品之后才自动增加一行  然后在填入相应 

   DataReceived事件代码；Dim str As String = Ports("COM10").ReadExisting()
messagebox.show(str)
Dim r As Row = Tables("成品统计").AddNew
r("产品名称") = str.SubString(0,4)  \'前4位
r("实际产量") = str.SubString(4,8)  \'接下来4位
r("温度") = str.SubString(8,12)  \'接下来4位
r("速度") = str.SubString(12,16) \'接下来4位
r("温度") = str.SubString(16,20) \'接下来4位
r("长度") =str.SubString(20,24) \'接下来4位
r("不合格数量") =str.SubString(24,28) \'接下来4位

想请教那位高手   想达到，  实时监控数据   当换产品之后才自动增加一行  然后在填入相应   这种效果应该怎么做到？