On error goto i function

Eksempel:

Public Sub fejlHandler(kodeDel)
    Msg = "Fejl # " & Str(Err.Number) & " blev genereret af " + kodeDel & " " _
            & Err.Source & Chr(13) & Err.Description
    MsgBox Msg, , "Error", Err.HelpFile, Err.HelpContext

Rem afbryd programmet
    cb_luk_Click
End Sub

Private Sub findSti()
On Error GoTo fejlH

    xsti = ActiveDocument.Path
    If Right(xsti, 1) <> "\" Then
        xsti = xsti + "\"
    End If
   
    Exit Sub
   
fejlH:
    fejlHandler "Userform2_21"
End Sub