Keysight E4981A Programming Manual page 134

Measurement Applications (Sample Programs)
Reading Measurement Results Using Data Buffer
ErrorCheck viVPrintf(Agte4981a, "INIT:CONT ON" + vbLf, 0)
ErrorCheck viVPrintf(Agte4981a, "TRIG:SOUR BUS" + vbLf, 0)
'===================================
' Measurement
'===================================
For i = 1 To NoofMeas
ErrorCheck viVPrintf(Agte4981a, "TRIG" + vbLf, 0)
ErrorCheck viVPrintf(Agte4981a, "FETCH?" + vbLf, 0)
ErrorCheck viVScanf(Agte4981a, "%t", Result)
PSData = Split(Result, ",")
Res(i, 1) = Val(PSData(1))
Res(i, 2) = Val(PSData(2))
Next i
Worksheets("Example12").Range("B5").Value = Res(1, 1)
Worksheets("Example12").Range("B6").Value = Res(1, 2)
Worksheets("Example12").Range("B8").Value = Res(2, 1)
Worksheets("Example12").Range("B9").Value = Res(2, 2)
Worksheets("Example12").Range("B11").Value = Res(3, 1)
Worksheets("Example12").Range("B12").Value = Res(3, 2)
Worksheets("Example12").Range("B14").Value = Res(4, 1)
Worksheets("Example12").Range("B15").Value = Res(4, 2)
Worksheets("Example12").Range("B17").Value = Res(5, 1)
Worksheets("Example12").Range("B18").Value = Res(5, 2)
134 Keysight E4981A 120 Hz/1 kHz/1 MHz Capacitance Meter