SoloCodigo

Pueba con el siguiente programa, a mi me funciono:

Private Sub cmdenviar_Click()

e = txtenviar
 MSComm1.Output = Chr(e)

End Sub

Private Sub cmdrecibir_Click()

  jose = MSComm1.Input
  Texto.Text = Asc(jose)
 
  End Sub


Private Sub cmdsalir_Click()
MSComm1.PortOpen = False ' cerramos el puerto
End
End Sub

Private Sub Form_Load()
MSComm1.CommPort = 1 ' elijo el puerto
MSComm1.InputMode = comInputModeText
MSComm1.Settings = "9600,N,8,1" ' preparo parámetros de comunicación
MSComm1.PortOpen = True ': Intento abrir el puerto

En el programa hay 3 ejecutables.

enviar, recibir y salir.

He comprado una controladora Microlog para realizar pequeños procesos a nivel didáctico. Utilizo visual basic (MSComm) para enviar datos y funcina perfectamente. Pero la lectura de datos no consigo desarrollarla para ver el estado de las entradas.
Tengo que ytilizar cadena=MScomm1.input y despues  entero=Asc(cadena), pero no hay forma de poder ver el valor que me devuelve el puerto.
La controladora utiñiza un PIC 16F. Gracias por su ayuda.