User`s manual

Dim ShowTimeMsg As String
Dim ErrMsg As String
’ Set error routine
On Error Resume Next
’ Get error message
ErrMsg = igeterrstr(igeterrno())
ShowTimeMsg = "The program generated error message " + Chr$(34) + ErrMsg + Chr$(34) + Chr$(10)
ShowTimeMsg = ShowTimeMsg + "in Sub/Function: " + ChkName + Chr$(10) + Chr$(10)
ShowTimeMsg = ShowTimeMsg + "Press " + Chr$(34) + "OK" + Chr$(34) + " to exit"
MsgBox ShowTimeMsg, 64, "Verif: TimeOut"
’ Close communication with instrument
Call iclose(Addr)
’ Clean up sicl
Call siclcleanup
’ End program
End
End Sub
Chapter 1 Getting Started 39