code for receiving sms on pc using at coomand and in vb6

[appy29]

helllo...
i need a code to receive sms on pc using at commands in vb6....urgent helpppp till now i have got this much bt i am stucked

code==

Private Sub Form_Load()
With MSComm1
.Handshaking = comNone
'make sure the serial port is not open (by this program)
If .PortOpen Then .PortOpen = False
'set the active serial port
.CommPort = 2
'set the badurate,parity,databits,stopbits for the connection
.Settings = "9600,N,8,1"
'set the DRT and RTS flags
.DTREnable = True
.RTSEnable = True
'enable the oncomm event for every reveived character
.RThreshold = 1
'disable the oncomm event for send characters
.SThreshold = 0
'open the serial port
.PortOpen = True
End With 'MSComm1

End Sub

Private Sub MSComm1_OnComm()
Select Case MSComm1.CommEvent
Case comEvRecieve
MSComm1.Output = "AT+CMGF=1" & Chr$(13)
MSComm1.Output = "AT+CNMI=1,2,0,0,0 " & Chr$(13)
MSComm1.Output = "AT+CMGR=1" & Chr$(13)
Do
DoEvents
buffer$ = buffer$ & MSComm1.Input
buffer$ = ""

Sleep 1000
msg = msg & MSComm1.Input

Text1.Text = msg
End Sub

[kvprajapati]

Have a look at this article.

[appy29]

Have a look at this article.

heyy thank
bt my main problem is i should gt d msg on my text box...as soon as it arrives on gsm modem sim card
can u plz tell me the logic
lyk mscoom_oncomm n com evreceive ...
plz help...urgent

[venangel79]

the 7th line .commport = 2 ' Reports an eeror message "invalid PORT Number'