Ahora como hago para leer lo recibido en el Celular
Código
Imports System.IO.Ports Imports System.Threading Public Class Form1 Sub enviarSMS(ByVal numero As String, ByVal mensaje As String, ByVal puerto As String) Dim serialport As IO.Ports.SerialPort Try serialport = New IO.Ports.SerialPort With serialport .PortName = puerto ' Puerto de comunicaciones COM1, COM2... .BaudRate = 9600 ' velocidad del puerto .Parity = Parity.None ' Paridad .StopBits = StopBits.One ' Bit de para .DataBits = 8 ' Bits de datos If .IsOpen = False Then ' Si el puerto no esta abierto .Open() ' Abrir el puerto End If .Write("ATZ0" & vbCr) .WriteLine("AT+CMGF=1" & vbCr) ' Configurando envio de SMS modo texto Thread.Sleep(1000) ' Esperar 1 segundo .Write("AT+CMGS=" & Chr(34) & numero & Chr(34) & vbCr) ' Numero al que se envia el SMS .Write(mensaje & Chr(26) & vbCr) Thread.Sleep(1000) ' Esperar 1 segundo .Close() MsgBox("Mensaje enviado") End With Catch Ex As IO.IOException Console.WriteLine(Ex.Message) End Try End Sub Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click enviarSMS("+595971888222", "Mensaje de prueba", "COM19") End Sub End Class