Keysight E4981A Programming Manual page 100

Measurement Applications (Sample Programs)
Executing OPEN/SHORT/LOAD Correction
' Read Primary and Secondary Load Types CP and D
100
' Short Correction Values
ErrorCheck viVPrintf(Agte4981a, ":CORR:DATA? STAN2" + vbLf, 0)
ErrorCheck viVScanf(Agte4981a, "%t", Result)
Res = Split(Result, ",")
Short1 = Val(Res(0))
Short2 = Val(Res(1))
Result = ""
' Load Correction Parameter
ErrorCheck viVPrintf(Agte4981a, ":CORR:CKIT:STAN3:FORMAT?" + vbLf, 0)
ErrorCheck viVScanf(Agte4981a, "%t", Result)
StdLoad = Mid(Result, 1, 3)
Result = ""
ErrorCheck viVPrintf(Agte4981a, ":CORR:DATA? STAN3" + vbLf, 0)
ErrorCheck viVScanf(Agte4981a, "%t", Result)
Res = Split(Result, ",")
Load1 = Val(Res(0))
Load2 = Val(Res(1))
Result = ""
Result = ""
' Cable Length
ErrorCheck viVPrintf(Agte4981a, "CAL:CABL?" + vbLf, 0)
ErrorCheck viVScanf(Agte4981a, "%t", Result)
Cab_Len = Val(Result)
Keysight E4981A 120 Hz/1 kHz/1 MHz Capacitance Meter