hey guys i need some help on how to receive sms in vb 2010

See more:

VB

VB10

hey guys this can someone help me? i cant receive message using this codes:

Public Sub receive()
       If srPort.IsOpen = True Then
           Try

               With srPort
                   .WriteLine("AT")
                   .WriteLine("AT+CMGF=1" & Chr(34) & vbCrLf)
                   .WriteLine("AT+CSCS=""PCCP437""" & Chr(34) & vbCrLf)
                   .WriteLine("AT+CPMS=""SM""" & Chr(34) & vbCrLf)
                   .WriteLine("AT+CMGL=""REC UNREAD""" & receiveRT.Text & vbCrLf)


               End With
           Catch ex As Exception

           End Try

       End If
   End Sub

can someone help me fix this codes? i am using broadband as sender and receiver..

I really need this code for my thesis...getting desperate....

Thanks in Advance..