Status = ""
StatusString = ""
    
MSComm1.CommPort = 1
MSComm1.Settings = "9600,N,8,1"
MSComm1.InputLen = 0

MSComm1.PortOpen = True
    
'MSComm1.Output = "Testing status..." + Chr$(&HA)
'MSComm1.Output = Chr$(&H1B) + Chr$(&H76) + Chr$(&HA) + Chr$(0)     ' Nippon Status
'MSComm1.Output = Chr$(5) + Chr$(&HA) + Chr$(0)                     ' ENQ
MSComm1.Output = Chr$(&H1B) + Chr$(&H6) + Chr$(&H1)                 ' 8 Byte Status
    
' Poll for 8 byte status
Do While Len(Status) < 8
    DoEvents
    Status = MSComm1.Input
Loop
    
For i = 1 To 9
    StatusString = StatusString & Right("00" & " " & Hex(Asc(Mid$(Status, i, 1))), 2)
Next i
    
Text1.Text = StatusString
MSComm1.PortOpen = False