For receiving Message
Set MSComm1 = New MSComm
Call fnOpenPort
' Send an 'AT' command to the phone
' MSComm1.Output = "AT" & Chr$(13)
' The phone will respond with an 'OK'
Sleep (500)
MSComm1.Output = "AT+CMEE=1" & Chr$(13)
' Set up the phone for a text message
MSComm1.Output = "AT+CMGF=1" & Chr$(13)
'The phone will respond with an 'OK'
Sleep (500)
' new mesg indication automatically send to pc, and not saved new mesg to sim/phone memory
MSComm1.Output = "AT+CNMI=1,2,0,0,0 " & Chr$(13)
'MSComm1.Output = "AT + CMGL =" & Chr$(34) & "ALL" & Chr$(34)
'MSComm1.Output = "AT+CMGL=2" & Chr$(13)
Sleep (500)
' Dim recSms1 As String
Dim a As String
a = MSComm1.Input
Try this.