Err Function

рдХрд╛рд░реНрдпрдХреНрд░рдо рдХрд╛рд░реНрдпрд╛рдиреНрд╡рдпрди рдЧрд░реЗрдХреЛ рдмреЗрд▓рд╛рдорд╛ рддреНрд░реБрдЯрд┐ рдкрд░рд┐рднрд╛рд╖рд┐рдд рдЧрд░реНрдиреЗ рддреНрд░реБрдЯрд┐ рд╕рдЩреНрдХреЗрдд рдлрд░реНрдХрд╛рдЙрдБрджрдЫ ред

рд╡рд╛рдХреНрдп рд╕рдВрд░рдЪрдирд╛:

Err

рдорд╛рди рдлрд░реНрдХрд╛рдЙрдиреБрд╣реЛрд╕реН:

рдЗрдиреНрдЯрд┐рдЬрд░

рдкрд░рд╛рдорд┐рддрд┐рд╣рд░реВ:

рддреНрд░реБрдЯрд┐ рд░ рджреЛрд╖ рдирд┐рд╡рд╛рд░рдХ рдХрд╛рд░реНрдп рдЧрдгрдирд╛ рдЧрд░реНрдирд▓рд╛рдИ рддреНрд░реБрдЯрд┐-рд╣реНрдпрд╛рдиреНрдбреЗрд▓рд┐рдЩ рдХрд╛рд░реНрдпрддрд╛рд▓рд┐рдХрд╛рд╣рд░реВрдорд╛ Err рдкреНрд░рдХрд╛рд░реНрдпрдХреЛ рдкреНрд░рдпреЛрдЧ рд╣реБрдиреНрдЫ ред

рдЙрджрд╛рд╣рд░рдг:

Sub ExampleError

рддреНрд░реБрдЯрд┐ рд╣реБрджрд╛рдБ рддреНрд░реБрдЯрд┐ рд╣реНрдпрд╛рдиреНрдбрд▓рд░ REM рдорд╛ рдЬрд╛рдиреБрд╣реЛрд╕реН, рддреНрд░реБрдЯрд┐ рд╣реНрдпрд╛рдиреНрдбрд▓рд░ рд╕реЗрдЯрдЕрдк рдЧрд░реНрдиреБрд╣реЛрд╕реН

Dim iVar as Integer

Dim sVar As String

рдлрд╛рдЗрд▓ рдЕрд╡рд╕реНрдерд┐рдд рдирдорднрдПрдХреЛ рдХрд╛рд░рдг REM рдорд╛ рддреНрд░реБрдЯрд┐

    iVar = Freefile

    Open "\file9879.txt" for Input as #iVar

    Line Input #iVar, sVar

    Close #iVar

Exit Sub

ErrorHandler:

    рд╕рдиреНрджреЗрд╢ рдмрд╛рдХрд╕ "рддреНрд░реБрдЯрд┐ " & Err & ": " & Error$ + chr(13) + " рд▓рд╛рдЗрдирдорд╛ : " + Erl + chr(13) + рдЕрд╣рд┐рд▓реЗ , 16 ,"рдПрдЙрдЯрд╛ рддреНрд░реБрдЯрд┐ рд░рд╣рди рдЧрдпреЛ"

End Sub