Erl Function

Erl

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) + "In line : " + Erl + chr(13) + Now , 16 ,"An error occurred"

End Sub