Err Object

Es gibt Fehler, die man nicht vorhersehen kann. Zum Beispiel wenn keine Diskette im Laufwerk ist, wenn man darauf zugreifen will oder die Division durch Null.
Solche Fehler können mit dem Err Object abgefangen und behandelt werden.
Beispiel:

Function funsngamountpermonth(intamount, intmonths)
  On Error Resume Next
  Dim sngamountpermonth 
  
  sngamountpermonth = intamount / intmonths
  If Err.Number > 0 Then
    funsngamountpermonth = -1
    Err.Clear
  Else
    funsngamountpermonth = sngamountpermonth
  End If	
End Function