关于发送短信的问题

以前给用户写的发送短信的程序，用的是西门子手机直接发送，发送正常。后来用户觉得用手机发送短信不太稳定，后改为GSM MODEM，直接将GSM MODEM连接到串口上，发送不正确，根据说明书，NOKIA 的速率为9600，西门子和GSM MODEM的速率为19200。mcommtype As Boolean ' 串口类型 false = '9600',true =19200，但是我在程序中讲这个属性修改为false,发送是正确的，修改为true发送就不正确。部分代码如下：

'创建短信组件
 Dim sms As Variant
 Set sms = CreateObject("Smss_Message.smss1")
 If sms Is Nothing Then
  Messagebox ">>>>>>>>>>can not create object."
  Print "<script>{alert("创建对象失败，请联系管理员！");history.back();}</script>"
  Exit Sub
 End If
 sms.mcommtype=False
 sms.center=smscenter
 sms.waittime=7
 sms.Mcommport=1
 If note.cnoreng(0)="1" Then
  sms.en=1
 Else
  sms.en=0
 End If
 sms.Number='手机号码'
 sms.Message='短消息内容'
 Call sms.Sendpro