Tome la función de depuración del puerto serie de VB como ejemplo. Espero recibir una cadena que contenga 0B y devolverla al puerto serie 0B, pero el código que obtuve devolvió múltiples 0B.
Private Sub MSComm1_OnComm()
Atenuar Data_in() como byte
Atenuar otros como cadena
Data_in = MSComm1.Input
Seleccionar caso Entrada_datos (0)
Caso amp; HB
MSComm1.Output = Entrada_datos(0)