除錯

On Error Goto Errhandle

.....

Errhandle:

If Not(Erl=0) Then

Print "<test Error>" + Str(Err) + ": " + Error$ + " on line " + Cstr(Erl)

End If