FoxPro/Visual FoxPro - Problema con mscomm32

Amigos del foro en la actualidad tengo un formulario que captura informacion de una planta telefonica através de un control mscomm32. A la vez que se recibe información de la planta, en el formulario hay un cuadro de texto en el cual digito informacion sobre otras cosas, el detalle es el siguiente:

cuando empiezo a escribir en el cuadro de texto y entra algun dato por el mscomm32, el cursor del cuadro de texto se va al principio y no me deja escribir, si de pronto a alguien le ha pasado esto,agradecería cualquier sugerencia.

Muchas gracias.

Habria que ver el codigo del evento que captura los datos en el activex.

en el evento init del formulario, abro el puerto:
THISFORM.ole_planta.portopen=.T.

y en el evento destry lo cierro:
THISFORM.ole_planta.portopen=.f.

Local text_hyper,nlinea,cnombre,cdireccion,ctelefono,ctroncal,NOMBARRIO,nzona

SET EXACT ON
SET CENTURY off
SET DATE BRITISH

DO CASE
*Errors

Case This.CommEvent=1001
WAIT WINDOW "Recibida señal de interrupción"
Case This.CommEvent=1004
WAIT WINDOW "Error de trama"
Case This.CommEvent=1006
WAIT WINDOW "Pérdida de información en puerto"
Case This.CommEvent=1008
WAIT WINDOW "Desbordamiento del búfer de recepción"
Case This.CommEvent=1009
WAIT WINDOW "Error de paridad"
Case This.CommEvent=1010
WAIT WINDOW "Búfer de transmisión lleno"
Case This.CommEvent=1011
WAIT WINDOW "Error inesperado al recuperar Bloque de control de
dispositivos (DCB) para el puerto"

* Events
Case This.CommEvent=5
WAIT WINDOW "Cambio en la línea Detección de portadora (CD)"
Case This.CommEvent=3
WAIT WINDOW "Cambio en la línea Preparado para enviar (CTS)"
Case This.CommEvent=4
WAIT WINDOW "Cambio en la línea Equipo de datos preparado (DSR)"
Case This.CommEvent=6
WAIT WINDOW "Detección de llamada"
Case This.CommEvent=1
WAIT WINDOW " Evento Send "
Case This.CommEvent=7
WAIT WINDOW "Fin de archivo"
Case This.CommEvent=2

text_hyper = this.input
ctelefono = SUBSTR(text_hyper,37,7)
IF AT("RC",text_hyper) > 0
IF ISDIGIT(ctelefono)
ctroncal=SUBSTR(text_hyper,27,6)
ENDIF
ELSE
IF SUBSTR(text_hyper,79,2)="NA"
SELECT t_servicios
LOCATE FOR t_servicios.telefono=ctelefono AND;
movil_empre="I"
IF FOUND()
replace movil_empre WITH "Cancelado"
ENDIF
ENDIF
endif
OTHERWISE
WAIT WINDOW "revise configuracion de hyperterminal"
ENDCASE

Espero que con este codigo me pueda dar una sugerencia. Gracias