Korak 1

Sub ErrorMessage
SHARED EC
REM *************************************************************
REM EC = The original error code
REM *************************************************************
Msg$="The Following Error Has Occuried:"+chr$(13)+chr$(10)
Msg$=Msg$+"[ "+Error$(EC)+" ]"
MSGBOX Msg$,0, " Error Code # ( "+STR$(EC)+" ) "
End Sub

Korak 2

Kad god vaša aplikacija naiđe na grešku, možete pozvati vaš prilagođeni kodni uput nakon što ste upisali vrednost greške za EC. Primer:

[Pretpostavimo da vaš softver ne može da locira tekstualni fajl tako da se greška pojavila]

[komanda za tu šifru greške je Err.Mi sada želimo da prebacimo tu]

[grešku na EC pa radimo sledeće: EC = Err ]

[kodni uput bi trebalo da izgleda ovako: ] 


SHARED EC
ON LOCAL ERROR GOTO TROUBLE


TROUBLE:
EC = Err : Resume RESULTS
RESULTS:
CALL ErrorMessage

Korak 3

Pošto ste pratili ovu proceduru bez obzira koji je problem, vaš prilagođeni kodni uput će identifikovati korisnika, tip greške i vrednost greške.

Izdvajamo iz ponude: