Tulong sa LibreOffice 25.8
Ibinabalik ang numero ng linya kung saan nagkaroon ng error sa panahon ng pagpapatupad ng program.
Erl
Integer
Ang Erl function ay nagbabalik lamang ng isang numero ng linya, at hindi isang label ng linya.
Sub ExampleError
Sa Error GoTo ErrorHandler ' I-set up ang error handler
Dim iVar As Integer
Dim sVar As String
' Error na dulot ng hindi umiiral na 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) + "In Line : " + Erl + chr(13) + Now , 16 ,"May naganap na error"
End Sub