Nunca manejé esa clase de impresoras, pero lo que puedes intentar es abrir COM1 como Input o como Random y extraer los datos.
Por ejemplo:
Código:
Dim GetData As String
Open "COM1" For Input As #1
GetData = Input(LOF(1), 1)
Close
MsgBox GetData
Compara los valores que te devuelve cuando está cerrado y cuando está abierto.
Espero que sea de ayuda.
Saludos