Visual Basic - Problemas recibiendo puerto COM

Buenos días,

Necesito leer datos de un puerto COM.
Estoy usando el control MSCOMM en VB6.

Arranco mi aplicación empiezo a enviar datos por el puerto COM y no recibo nada.
Sin tocar la aplicación desconecto el cable y me muestra todo lo que se ha enviado hasta el momento.

¿Que estoy haciendo mal?
Os dejo mi codigo:

Configuro el control
MSComm1.CommPort =1
MSComm1.Settings = "9600,N,8,1"
MSComm1.InBufferSize = 1024
MSComm1.OutBufferSize = 512
MSComm1.RThreshold = 15
MSComm1.SThreshold = 1
MSComm1.InputLen = 15
MSComm1.ParityReplace = "?"
MSComm1.RTSEnable = True
MSComm1.DTREnable = True
MSComm1.NullDiscard = False
MSComm1.Handshaking = comNone
MSComm1.PortOpen = True


Private Sub MSComm1_OnComm()

Text2.Text = Text2.Text & " " & MSComm1.Input



Gracias !!!!

Prueba trabajar con el SaxCom.ocx, es mucho mas sencillo y te da menos errores.

No dice mediante que control llama le procedimiento escrito arriba. Si utiliza un timer, debe escribir la sentencia "Doevents" despues de leer la entrada del puerto para que refresque la caja de texto.

asi:

Text2.Text = Text2.Text & " " & MSComm1.Input
Doevents