Visual Basic - mscomm

Saludos:

Tengo una impresora que escribe y lee en un chip rfid la tengo conectada al serial y al lpt1, utilizo el mscomm para escuchar la respuesta.
-------------------codigo----------
form1(load)
On Error GoTo fallo
Dim cad As String
Dim i As Integer

com1.CommPort = 1
com1.Settings = "9600,N,8,1"
com1.InputLen = 0
com1.InputMode = comInputModeText
com1.PortOpen = True
com1.Output = "?R1&2,1" ' comando de la impresora para que responda
com1.Output = "?R2&23,0,8" 'comando de la impresoara que le pregunta
For i = 0 To 100
cad = cad & com1.Input
Next i
MsgBox cad
Exit Sub
fallo:
MsgBox Err.Description
End sub

el asunto es que nunca lee nada por que en que fallo.

Gracias por las repuestas

Saludos desde Vicenza (italia)