Err Function
αααα‘ααβαααβααΌαβαααβαααααΆααβααΈβααα α»α αααβααΆαβααΎαβα‘αΎαβαααβαααβααααα·ααααα·βαααααα·ααΈΒ α
ααΆαααβααααααα α
Err
αααααβαααα‘αα α
α ααα½αβααα
αααΆαααΆαααααα α
α’αα»αααα Err ααααΌαβααΆαβααααΎβαααα»αβααααααβααΆαβαααααααΆαβααα α»α ααΎααααΈβαααααβααα α»α αα·αβα’αααΎβααααΉαααααΌαΒ α
α§ααΆα ααα α
Sub ExampleError
on error goto ErrorHandler REM Set up error handler
Dim iVar as Integer
Dim sVar As String
REM Error occurs due to non-existent file
iVar = Freefile
Open "\file9879.txt" for Input as #iVar
Line Input #iVar, sVar
Close #iVar
Exit Sub
ErrorHandler:
MsgBox "Error " & Err & ": " & Error$ + chr(13) + "At line : " + Erl + chr(13) + Now , 16 ,"an error occurred"
End Sub