vb与s7-226自由口通讯

Private Sub Form_Load()  
MSComm1.InBufferCount = 0
 MSComm1.OutBufferCount = 0
 MSComm1.InBufferSize = 35
 MSComm1.OutBufferSize = 22
 MSComm1.Settings = "9600,n,8,1"
 MSComm1.CommPort = 1
 MSComm1.PortOpen = True
end sub

Private Sub Command5_Click()
     strPreSend = txtCode(05:指令读） + StationCode（02:目标站地址） +  
             Objectaddress（0800xxxx:v寄存器地址） + bytes（xx:字节数）
    strVerify = SumConvert(strPreSend)
    strVerify = Right(strVerify, 2)
    strSend = strsendfirst（67：起始字符g) + strPreSend +   strVerify(xx:检验）   + strsendend（47：结束字符G）
    MSComm1.Output = strSend
   timedelay 2000
    strRead = MSComm1.Input
    strRead = Mid(strRead, 2, Len(strRead))
    strRead = Trim(strRead)
end sub

那位高手指点一下，不知为什么总是没有反馈信息，可能是没能与PLC通
不知错到哪里，那位做过自由口通讯，请指点！
谢谢！