pues la rutina para leer un dato es la siguiente:
Do While MSComm1.InBufferCount =0 ;aqui se queda trabado hasta recibir algo
Loop
dato = MSComm1.Input ;cuando recibe los 8 bits se sale del lazo y ya se puede
;leer el dato
para mostrar el dato luego en un textbox
text1.text = dato
