Когда имеет смысл ставить "on Error Resume Next"

Function Function_name
On Error Goto Errh
Тело функции
Exit Function
Errh:
Call ErrHandler
Exit Function
End Function

On Error Resume Next
Потенциально опасная операция
On Error Goto Errh

On Error Resume Next
Error 1001
Потенциально опасная операция
On Error Goto Errh
If Err <> 1001 Then Потенцально опасная операция таки вывалилась :)

dym db as New notesDatabase("", "")
Call db.Open(Some_Server, Some_Path)
if db.IsOpen then
Всё в поряде
else
Скорее всего ошибка в Some_Server/Some_Path
End if

Set doc = db.GetDocumentByID/UNID(ID)
Call doc.ReplaceItemValue("", "")

Function Function_name
On Error Goto Errh
Тело функции
Process:
Тело функции
Exit Function
Errh:
обрабатываем ошибку, если надо
Resume Process
End Function

On Error Resume Next
if not(mdoc.Save(True, False)) then
If Err <> 0 Then
...
end if
end if
On Error Goto errorproc

Function GetNDbyUNID(NDB As NotesDatabase, UNID As String, ND_Result As NotesDocument) As Boolean
Set ND_Result = Nothyng
If NDB Is Nothyng Then Exit Function
 
On Error 4091 Goto Err4091
Set ND_Result = NDB.GetDocumentByUNID(UNID)
If Not ND_Result Is Nothyng Then
GetNDbyUNID = IsDocAccessed(ND_Result, True)    Где-то здесь уже выкладывал эту функцию
Else
On Error Goto 0                             Собственно оно и есть
End If
 
Exit Function
 
Err4091:
Resume Next                                     "Финт ушами"
End Function

    On Error Resume next
Error 1000, "Error 1"
On Error GoTo 0
If Err <> 0 Then
MsgBox "Error: " & Error & " = " & CStr(err)
End If

Err4091:
Resume Next