Keysight Technologies E3633A - Page 96

3 Calibration Procedures
96 Keysight E3633A and E3634A Service Guide
Private Function SaveDate()
Dim Message As String
'calibration string enclosed in quotes
Message = "Cal:Str " & Chr(34) & Date & Chr(34)
SendSCPI power, Message
Message = SendSCPI(power, "Cal:Str?")
Range("B5").Select
ActiveCell.Value = Message
Message = SendSCPI(power, "Cal:Count?")
Range("B6").Select
ActiveCell.Value = Message
Range("B4").Select
End Function
End of program