Programming Examples 38
Agilent InfiniiVision 2000 X-Series Oscilloscopes Programmer's Guide 899
If Not strOut = "" Then
MsgBox strOut, vbExclamation, "INST Error Messages"
Call iflush(id, I_BUF_READ Or I_BUF_WRITE)
End If
Exit Sub
ErrorHandler:
MsgBox "*** Error :"+Error, vbExclamation
End
End Sub