How to receive sms from mobile using VB

[fadigigs]

mscomm1.output = at+cmgl= & chr$(34) & all

I am using VB to receive sms from mobile. This is the code.i have tested the At commands given under on hyperterminal and i can receive the sms in it.
at
OK
at+cmgf=1
OK
at+cpms="me"
+CPMS: 2, 60, 2, 60, 2, 60

OK
at+cmgl="rec read"

I get the correct response using the first two at commands as shown above but when i send the third command on serial it sends error when i use VB.

Text1.Text = "at+cpms=" + "Me"
MSComm1.Output = Text1.Text + Chr(13)
sInput = MSComm1.Input
MsgBox sInput

i dont know what is the problem could any one please help me.
thanx.

 

[abbas1707]

u mean at+cpms give u error

do it as
MSComm1.output="AT+CPMS="
MSComm1.output=chr(34)
MSComm1.output="me"
Mscomm1.output=chr(34)
mscomm1.output=chr(13)
sInput = MSComm1.Input


hope it helps so press helped me button