Erl Function
བྱ་རིམ་ལག་བསྟར་བརྒྱུད་རིམ་ནང་ནོར་འཁྲུལ་ཐོན་པའི་ཕྲེང་ཨང་ཕྱིར་ལོག་
བརྡ་འཕྲོད་
Erl
ཕྱིར་ལོག་ཐང་
ཧྲིལ་གྲངས་
ཁུགས་གྲངས་
Erl རྟེན་གྲངས་ཀྱིས་ཕྲེང་ཨང་ཁོ་ན་ཕྱིར་ལོག་བྱེད་པ་ལས་ཕྲེང་གི་གཞི་གྲངས་མཚོན་ཚུལ་ཕྱིར་ལོག་མི་བྱེད།
དཔེ་གཞི་
Sub ExampleError
on error goto ErrorHandler 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:
MsgBox "Error " & err & ":" & error$ + chr(13) + "In line :" + Erl + chr(13) + Now , 16 ,"An error occured"
End Sub