Helpo de LibreOfficeDev 25.8
Liveras la linian nombron kie eraro okazis dum programa ruliĝo.
Erl
Entjero
La funkcio Erl liveras nur linian nombron, ne linian etikedon.
Sub ExampleError
on error goto ErrorHandler REM Starigi traktilon por eraroj
Dim iVar As Integer
Dim sVar As String
REM Eraron kaŭzis neekzisto de dosiero
    iVar = Freefile
    Open "\file9879.txt" For Input As #iVar
    Line Input #iVar, sVar
    Close #iVar
    Exit Sub
ErrorHandler:
    MsgBox "Eraro " & err & ": " & error$ + chr(13) + "In line : " + Erl + chr(13) + Now , 16 ,"Eraro okazis"
End Sub