Private Sub Command3_Click()
If MSComm1.PortOpen = False Then MSComm1.PortOpen = True
   tl = Len(Text2.Text)                       ' 检测手机号码的位数
 If tl <> 11 And tl <> 13 Then
 MsgBox "输入的号码有误！请重新输入号码！"
 Text2.Text = ""
 End If
 
  MSComm1.Output = "AT+CMGF=1" + vbCr '设置短消息发送格式
  delay (2000)
 MSComm1.Output = "AT+CSCA=" & Chr(34) & "8613800931500" & Chr(34) + vbCr
                            '+8613800931500是短消息中心,各地的号码不一样,必须设置当地的短消息号码
    delay (2000)
MSComm1.Output = "AT+CMGS=" & Chr(34) & Text2.Text & Chr(34) + vbCr 'Text2.Text是对方手机号
delay (2000)

MSComm1.Output = Text1.Text & Ctrl + Z 'chr(26)是Ctrl+ Z,Text1.Text是短信内容
   
End Sub

麻烦给看看那个地反粗哦了啊？？
谢谢了啊！！！