Keysight E4980A User Manual page 280

Sample Program
Set Up Measurement Conditions and LCD Display
ErrorHandler:
End Sub
Sub ErrorCheck(ErrorStatus As Long)
End Sub
Sub selectLCR(defrm As Long, AgtE4980A/AL As Long)
AgtE4980A/AL)
280
' Display the error message
MsgBox "*** Error : " + Error$, MB_ICON_EXCLAMATION
End
'===================================
' ErrorCheck
'===================================
Dim strVisaErr As String * 500
'
' Check if VISA Error
'
If ErrorStatus <> VI_SUCCESS Then
Call viStatusDesc(defrm, ErrorStatus, strVisaErr)
MsgBox "*** Error : " + strVisaErr
End If
'===================================
' SelectLCR
'===================================
Dim Lcr As String
Lcr = Worksheets("ControlPanel").Range("B3").Value
If Lcr = "GPIB" Then
ErrorCheck viOpen(defrm, "GPIB0::17::INSTR", 0, 0,
Keysight E4980A/AL Precision LCR Meter