VB读取电子秤数据问题

电子秤是 湘平 ES-300MC
数据是自动上报的，用超级终端获取到的数据如下，用串口调试助手接收到的数据也是这样
=================
U.W.      0lb
PCS:      0 pcs
ST,GS  0.000lb
U.W.      0lb
PCS:      0 pcs
ST,GS  0.000lb
U.W.      0lb
PCS:      0 pcs
ST,GS  0.000lb
U.W.      0lb
PCS:      0 pcs
ST,GS  0.000lb
=================

网上找到的资料http://topic.csdn.net/t/20060213/11/4552895.html 3楼
试着修改它，但是还是不行...老是报错，而且根本就没显示出任何信息...
下面是我修改后的
我不是学VB的...现在做的一个小项目需要获取电子秤数据，虽然已经用JAVA解决了，但是还需要安装JRE，太麻烦了，所以想用VB写，然后发布成ActiveX插件，但现在连在VB6里显示都有问题了...T_T
==================================================================
Private Sub Command1_Click()
    ClearText
    With MSComm1
        .InputMode = comInputModeText
        .InBufferCount = 0
        If Not .PortOpen Then
            .PortOpen = True
        End If
    End With
End Sub

Private Sub Form_Load()