On Error Goto DateiFehler
    ..... Anweisungen
 
    Exit Sub (oder Function)
DateiFehler:
    If Err.Number = 70 Then
         MsgBox "Es wurde versucht auf eine schreibgeschützte Datei" & _
           "zuzugreifen.",  _
                         VBExclamation, "Fehler im Modul: Subprozedur-Name"
    Else
         Msgbox "Im Modul Subprozedur-Name ist der Fehler:  " & Err.Number & "" & _
           "" & _
                        Err.Describtion & " aufgetreten.",vbExclamation, "Nicht" & _
                        "definierter Fehler"
    End If
End Sub (oder Funktion)