Agilent Technologies N6751A User Manual page 116

7 Programming Examples
' Check instrument for any errors
.WriteString "Syst:err?"
ErrString = .ReadString
' give message if there is an error
If Val(ErrString) Then
MsgBox "Error in instrument!" & vbCrLf & ErrString
End If
End With
End Sub
116 Series N6700 User's Guide