Error Handling
19
In the second example,
On Error GoTo ErrHandler
directive instructs VB to interrupt
the program execution when the error is detected and to pass control to
ErrHandler
label.
Dim app
Public Sub HandleError2()
Set app = CreateObject("TRVNA.Application")
On Error GoTo ErrHandler
app.SCPI.PARameter.DEFine = "S13"
...
Exit Sub
ErrHandler:
Msg = "Error # " & Str(Err.Number) & " was generated by " &_
Err.Source & Chr(13) & Err.Description
MsgBox Msg,,"Error"
End Sub
