this might help you
vb USSD code sending
or
u can copy URL http://www.experts-exchange.com/questions/23017550/AT-COMMAND-GSM-Modem-using-USSD-Vbscript.html
<br />
vance<br />
Sub USSD()<br />
Set MSComm1=CreateObject("MSCOMMLib.MSComm")<br />
MSComm1.Settings = "9600,n<br />
MSComm1.InputLen = 0<br />
MSComm1.RThreshold = 5<br />
MSComm1.CommPort = 4<br />
MSComm1.InBufferCount = 0<br />
MSComm1.PortOpen = True<br />
MSComm1.Output="AT+CMGF=1"<br />
WScript.Sleep(1000) TextCommand = "*124#" strCommand = "AT+CUSD=1," & Chr(34) & TextCommand & Chr(34) & ",15" MSComm1.Output=strCommand WScript.Sleep(10000) strResponse=MSComm1.Input If (InStr(strResponse, "OK") > 0) Then ' Re MSComm1.Output=" "<br />
WScript.Sleep(10000)<br />
strResponse2=MSComm1.Input<br />
If (InStr(strResponse2, "+CUSD:") > 0) Then ' If USSD response strFields = Split(strResponse2, Chr(34)) modemReply = strFields(<br />
Else<br />
modemReply = "Error st End If ELSE <br />
modemReply = "Error st<br />
End if <br />
MSComm1.PortOpen = False <br />
set MSComm1=nothing<br />
End Sub <br />
Call USSD() <br />
msgbox modemReply<br />
there are some mistakes but u can fix them, i just sent that thru a phone en phone dnt hold that much copied data in the clipboard with tabs en returns