GSMmoden如何发送短信到106等号码

[zmrok]

本人以前写过VB控制GSMmoden发送短信，只是接收的是普通手机，现在想发送短信到农行网端106575595599上去，却显示发送失败。我检查了一下，估计是接收方设置那里出了问题，源码如下：
Public Function SendsmsMobile(csca As String, num As String, MSG As String, msCommX As MSComm) As Boolean
'---------------------------------------------------发送短信
On Error GoTo errlb
Dim midx As String
Const prex = "0891"
midx = "0D91"'----------此处为普通11位手机
midx="001100"&midx
Const sufx = "000800"
Dim pdu, psmsc, pnum, pmsg As String
Dim leng As String
Dim length As Integer
length = Len(MSG)
length = 2 * length
leng = Hex(length)
If length < 16 Then
leng = "0" & leng
End If
psmsc = Trim(Telc(csca))
pnum = Trim(Telc(num))
pmsg = Trim(ascg(MSG))
pdu = midx & pnum & sufx & leng & pmsg
Delay 1

Dim stt 'As String
If msCommX.PortOpen = False Then
msCommX.PortOpen = True
End If
msCommX.Output = "AT+CMGF=0" + vbCr
msCommX.Output = "AT+CMGS=" & Str(15 + length) + vbCr
stt = msCommX.Input
msCommX.Output = pdu & Chr$(26)

For i = 1 To intSD
Delay 1
Next
'----停止5秒
stt = msCommX.Input


If InStr(stt, "ERROR") <> 0 Then
SendsmsMobile = False
GoTo 100
End If

If InStr(stt, "OK") <> 0 Then
SendsmsMobile = True
Else
SendsmsMobile = False
End If
100:
Exit Function
errlb:
MsgBox Err.Description, vbCritical
SendsmsMobile = False
End Function
具体如何改，请教各位大大

[zmrok]

自已顶起来!!