Keysight E4980A User Manual page 298

Sample Program
Read Measurement Results
End Sub
298
paramsArray(1) = VarPtr(dblArray(0))
err = viVScanf(vi, "%#Zb%1t", paramsArray(0))
If err <> 0 Then MsgBox "Binary Error"
ReDim data(Nop - 1)
For i = 0 To Nop - 1
data(i) = dblArray(i)
Next
Keysight E4980A/AL Precision LCR Meter