Χειρισμός λαθών

Παράδειγμα:
on error resume next
open "names.txt" for input as #1
if err <> 0 then
	msgbox "names.txt: " + err.description
	exit sub
end if
on error goto 0