TextBox.Text = "/I83 Arbitration Loss" 'Update Display
ElseIf (StrComp(iPortResp$, "/I84") = 0) Then
TextBox.Text = "/I84 I2C Bus Error Detected"
ElseIf (StrComp(iPortResp$, "/I85") = 0) Then TextBox.Text = "/I85 I2C Bus
ElseIf (StrComp(iPortResp$, "/I88") = 0) Then TextBox.Text = "/I88 iPort/AFM Connection Closed"
ElseIf (StrComp(iPortResp$, "/I89") = 0) Then TextBox.Text = "/I89 Invalid Command Argument"
ElseIf (StrComp(iPortResp$, "/I8A") = 0) Then TextBox.Text = "/I8A Slave Tx Request Not Active"
ElseIf (StrComp(iPortResp$, "/I8F") = 0) Then TextBox.Text = "/I8F Invalid iPort/AFM Command"
ElseIf (StrComp(iPortResp$, "/I90 = 0) Then TextBox.Text = "/I90 iPort/AFM Rx Buffer Overflow”
Else
TextBox.Text = LineBuf$ 'Other Update Display
End If
LineBuf$ = ""
End If
Wend
End Sub
53