Err Function

āĻāĻ•āϟāĻŋ āĻ¤ā§āϰ⧁āϟāĻŋ āϕ⧋āĻĄ āĻĒā§āϰāĻĻāĻžāύ āĻ•āϰ⧇ āĻĨāĻžāϕ⧇ āϝāĻž āĻĒā§āϰ⧋āĻ—ā§āϰāĻžāĻŽ āϚāĻžāϞāύāĻžāϰ āϏāĻŽā§Ÿ āϏāĻ‚āϘāϟāĻŋāϤ āĻ¤ā§āϰ⧁āϟāĻŋ āĻļāύāĻžāĻ•ā§āϤ āĻ•āϰ⧇ āĻĨāĻžāϕ⧇āĨ¤

āϏāĻŋāύāĻŸā§āϝāĻžāĻ•ā§āϏ:

Err

āĻĒā§āϰāĻĻāĻžāύ āĻŽāĻžāύ:

Integer

āĻĒā§āϝāĻžāϰāĻžāĻŽāĻŋāϟāĻžāϰ:

Err āĻĢāĻžāĻ‚āĻļāύāϟāĻŋ āĻ¤ā§āϰ⧁āϟāĻŋ āύāĻŋāĻ°ā§āϧāĻžāϰāĻŖ āĻāĻŦāĻ‚ āϏāĻ‚āĻļā§‹āϧāύ āĻ•ā§āϰāĻŋ⧟āĻžāϰ āϜāĻ¨ā§āϝ āĻ¤ā§āϰ⧁āϟāĻŋ āĻšā§āϝāĻžāĻ¨ā§āĻĄāϞāĻŋāĻ‚ āĻ āĻŦā§āϝāĻŦāĻšā§ƒāϤ āĻšā§Ÿā§‡ āĻĨāĻžāϕ⧇āĨ¤

āωāĻĻāĻžāĻšāϰāĻŖ:

Sub ExampleError

on error goto ErrorHandler REM āĻ¤ā§āϰ⧁āϟāĻŋ āĻšā§āϝāĻžāĻ¨ā§āĻĄāϞāĻžāϰ āϏ⧇āϟ āφāĻĒ āĻ•āϰ⧇ āĻĨāĻžāϕ⧇

Dim iVar as Integer

Dim sVar As String

āĻŦāĻŋāĻĻā§āϝāĻŽāĻžāύ āύ⧟ āĻāĻŽāύ āĻāĻ•āϟāĻŋ āĻĢāĻžāχāϞ⧇āϰ āĻ•āĻžāϰāύ⧇ REM Error āĻšā§Ÿ

    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