Função Erl

Devolve o número da linha em que ocorreu um erro durante a execução do programa.

Sintaxe:

Erl

Valor de retorno:

Número inteiro

Parâmetros:

Ícone de nota

A função Erl só devolve um número da linha, e não uma etiqueta de linha.


Exemplo:

Sub ExampleError

On Error GoTo ErrorHandler ' Definir gestão de tratamento de erros

Dim iVar As Integer

Dim sVar As String

' Erro causado por ficheiro inexistente

    iVar = Freefile

    Open "\file9879.txt" For Input As #iVar

    Line Input #iVar, sVar

    Close #iVar

    Exit Sub

ErrorHandler:

    MsgBox "Erro " & err & ": " & Error$ + chr(13) + "Na linha : " + Erl + chr(13) + Now , 16 ,"Ocorreu um erro"

End Sub