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.