Visual Basic - Comunicacion con Puertos Serie

Como puedo leer un dato de un puerto serie. He hecho lo siguiente.

El asunto es que el dato que viene no queda en el label TextP1C.text, pero si lo muestra en el mscomm1 en un instante

Agradezco su ayuda desde ya

Private Sub ComdP1C_Click()
MSComm1.CommPort = 1
MSComm1.Settings = "4800,N,8,1"
MSComm1.InputLen = 0
MSComm1.PortOpen = True
MSComm1.Output = "M04=40" + Chr(13)
MSComm1.RThreshold = 25

If MSComm1.InBufferCount >= 0 Then
TxtP1C.Text = MSComm1.Input
end if
MSComm1.PortOpen = False
end sub