急求！短信息发送程序问题！

我把PDU编好了，MSComm也初始化了。打开串口，清空了缓冲区。
发送按扭编的是：Private Sub send_Click()

                 code = "089168" & code2 & "11000D9168" & code3 & "000800" & leng & code1
                 MSComm1.Output = "AT+CMGF=0" + vbCr                 MSComm1.Output = "AT+CMGS=" & str(15 + length) + vbCr                 MSComm1.Output = code & Chr$(26)
                 End Sub
我不知道还缺什么，哪位高人帮帮忙啊。急着用，谢谢。