I am trying to retrieve, data from port7 and pass it to another computer through SMS, from port1 of same computer.I am using 2 comm controls for same purpose.MSComm1 is commected to port1
and MSComm2 is connected to port2.Now my problem is that, i am able to retrieve data from port1,
but i am not able to SMS it to other computer.ReadMsg(MessageNo) is the procedure to send SMS.
The program do not show any error, but it foes not send SMS either.On debugging, the control passes
through SendMsg() procedure, but do not send SMS.I am attaching the code with my query.
Do anybody have any idea?
Regards,
BN

Private sub SendMsg(GPs)
Dim Gpos
On error goto a
MSComm2.PortOpen = False
MSComm1.output = "AT+CMGF=1" & vbCr
Gpos = GPs & Chr$(26)
MSCOmm1.output = "AT+CMGS=5903635" & vbCr
MSComm1.output = Gpos
Exit sub
a:
Msgbox "Cannot send SMS"
end sub

the right command is.... at+cmgs="1234567"
the " character must be before and after the telefon number

Are you trying to send the SMS through a land line or a cell phone?