VB用COM口发WAPPUSH,返回+CMS ERROR: 500

 给出代码如下:
Type WAPPushPDUStruct
    SMSCLen As String
    SMSCType As String
    SMSC As String
    PROTOCOL As String
    TPMRBase As String
    RePhoneNumLen As String
    RePhoneNumType As String
    RePhoneNum As String
   
    TPPID As String
    TPDSC As String
    TPVP As String
    MSGLen As String
   
    WAPPUSHHeadLen As String
    WAPPUSHFlag As String
    DATALen As String
    WAPPUSHCOMBFlag As String
    Total As String
    MSGID As String
    WapPushUDH As String
    WapPushPUD As String
   
'    WAPPUSHBegin As String
'    WSP As String
'    Flag As String
'    DTDSIFlag As String
'    UTF As String
'    FlagBegin As String
   
'    SIBegin As String
'
'    IndicationBegin As String
'
'    Action As String
'    Href As String
'    HrefBegin As String
   
    WapPushIndicator As String
   
    URL As String
   
   
'    HrefEnd As String
'    Split As String
'    TitleBegin As String
   
    WapPushDisplayTextHeader As String
   
    title As String
   
'    TitleEnd As String
'    SIEnd As String
'    IndicationEnd As String
    EndOfWapPush As String
   
   &nb