Keysight E4981A Programming Manual page 147

Measurement Applications (Sample Programs)
Capacitor Measurement Using Test Fixture
ErrorCheck viVPrintf(Agte4981a, "*TRG" + vbLf, 0)
ErrorCheck viVScanf(Agte4981a, "%t", Result)
Res = Split(Result, ",")
MsgBox "Value of Primary parameter (Cs) is " & Val(Res(1)) & " and value of
Secondary Parameter (Q) is " & Val(Res(2))
'===================================
' Setup End
'===================================
Call viClose(defrm)
End
'===================================
' ErrorProc
'===================================
ErrorHandler:
' Display the error message
MsgBox "*** Error : " + Error$, MB_ICON_EXCLAMATION
End
End Sub
Keysight E4981A 120 Hz/1 kHz/1 MHz Capacitance Meter 147