SoloCodigo

Hola

Tengo problemas con la programacion del puerto serie.
Hace tiempo estoy tratando de leer las llamadas de una pizarra telefonica Panasonic por Puerto serie y no lo logro
Este es el codigo que utilizo de prueba. Con el Hyperterminal lo leo perfectamente.
Tengo dudas si hay que enviar algun dato al puerto para poder recibir informacion
Ya he escrito a varios foros y no he resuelto o no me han contestado.
Me parece que nunca voy a resolver esto

Saludos a todos


Using com1 As IO.Ports.SerialPort = My.Computer.Ports.OpenSerialPort("COM1")
            With com1
                .BaudRate = 9600
                .Parity = IO.Ports.Parity.None
                .DataBits = 8
                .StopBits = IO.Ports.StopBits.One
                . Dim Datos As String = ""

                MsgBox(com1.BytesToRead)  'Aqui me da 0

               Datos = com1.ReadExisting
               MsgBox(Datos)  'Aqui me da un mensage en Blanco

            End With
 :End Using