Leer desde RS232 con VB6

hola a todos...

el caso es el siguiente, tengo un dispositivo que se comunica por rs232, el tema es que tengo un sencillo programa en vb6 para leer la info que tiene este dispositivo y no me llega nada, abre el puerto no hay caso que llegue información, y este dispositivo ha leído info que debería poder transmitir...

tengo que enviar algún comando para forzarlo a enviarme la info?

dejo el sencillo código... Obtenido de acá también

Private Sub Form_Load()
MSComm1.Settings = "19200,N,8,1"
MSComm1.InputMode = comInputModeText
'MSComm1.InputMode = comInputModeBinary
MSComm1.InputLen = 0
'MSComm1.InputLen = 1
MSComm1.CommPort = 1
MSComm1.PortOpen = True
End Sub
Private Sub Form_Unload(Cancel As Integer)
MSComm1.PortOpen = False
End Sub
Private Sub MSComm1_OnComm()
If MSComm1.CommEvent = comEvReceive And MSComm1.InBufferCount > 0 Then
Text1.Text = MSComm1.Input
End If
End Sub

de antemano muchas gracias.