Keysight E4981A Programming Manual page 105

Measurement Applications (Sample Programs)
Recovering the Correction State
ErrorCheck viVPrintf(Agte4981a, "CORR:CKIT:STAN1:FORMAT " & StdOpen + vbLf,
0) ' Write Primary and Secondary Load Type
ErrorCheck viVPrintf(Agte4981a, "CORR:CKIT:STAN2:FORMAT " & StdShort +
vbLf, 0)
ErrorCheck viVPrintf(Agte4981a, "CORR:CKIT:STAN3:FORMAT " & StdLoad + vbLf,
0)
ErrorCheck viVPrintf(Agte4981a, "CORR:DATA STAN1," & CStr(Open1) & "," &
CStr(Open2) + vbLf, 0)
ErrorCheck viVPrintf(Agte4981a, "CORR:DATA STAN2," & CStr(Short1) & "," &
CStr(Short2) + vbLf, 0)
ErrorCheck viVPrintf(Agte4981a, "CORR:OPEN ON" + vbLf, 0)
ErrorCheck viVPrintf(Agte4981a, "CORR:SHORT ON" + vbLf, 0)
ErrorCheck viVPrintf(Agte4981a, "CORR:LOAD ON" + vbLf, 0)
MsgBox "Correction Data sucessfully applied to E4981A from " & File_Path
'===================================
' ErrorProc
'===================================
End
ErrorHandler:
' Display the error message
MsgBox "*** Error : " + Error$, MB_ICON_EXCLAMATION
End
End Sub
Keysight E4981A 120 Hz/1 kHz/1 MHz Capacitance Meter 105