MSCOMM地磅通信问题

请高手指点：地磅XK3190-A9型号，我做的程序怎么没有输出呢？如TEXT文本框没有显示，串口可以确定是打开了，就是没输出，什么原因会出现这样的情况呢？
vfp中的代码可以实现正常通信（想改成VB的）。
vfp代码如下：
kl=messagebox('请选择地磅？'+chr(13)+'《地磅一》选择“是”',36,'操作提示')  //提示
if kl=6
 thisform.comm1.commport=1         //选择地磅1
else
 thisform.comm1.commport=2           //选择地磅2
endif
thisform.comm1.settings='1200,n,7,1'    //设置传输速率，奇偶校验，数据位，停止位
thisform.comm1.portopen=.t.            //打开端口
THISFORM.comm1.inputmode=0             //设置字符输入输出方式
THISFORM.comm1.inputlen=1              //仅输入输出一个字符
do while .t.
ind=''
dd=0
do while .t.
 dd=thisform.comm1.inbuffercount    //清缓冲区
 for i=1 to 80
  indata=THISFORM.comm1.input
  ind=ind+indata                     //变量初始化
  i=i+1
 endfor
 if dd>0
  exit
 endif
enddo
a1=len(ind)
asq=atc('+',ind)     //atc()函数是返回一个字符表达式或备注字段在另一个字符表达式或备注字段首次出现的位置（数值型），不区分大小写
qq1=val(subs(ind,asq,7))   //subs()函数是从给定的字符串表达式或备注字段中返回知道数目的字符。从字符串ind的第asq位返回7位字符串
THISFORM.comm1.inputmode=0
THISFORM.comm1.inputlen=1
ind1=''
dd=0
do while .t.
 dd=thisform.comm1.inbuffercount 
 for i=1 to 80
  indata1=THISFORM.comm1.input
  ind1=ind1+indata1
  i=i+1
 endfor
 if dd>0
  exit
 endif
enddo
a11=len(ind1)
asq1=atc('+',ind1)
qq=val(subs(ind1,asq1,7))
if qq=qq1
 thisform.comm1.portopen=.f.
 exit
endif
enddo
thisform.皮重.value=qq
thisform.皮重.enabled=.f.
thisform.修改.enabled=.t.
thisform.保存.enabled=.t.
return .f.
请高手指点下vb的要怎么写呢？网上也看了不少例子，但我写的就是没输出！！！