Err

Public Function Err() As ErrObject

Returns the Err (error) object.

Public Function Invert(pValue As Long) As Double
   Dim lResult As Double
   
   On Error Resume Next
   lResult = 1 / pValue
   
   If Err.Number <> 0 Then
       'An error occurred. Probably pValue = 0
       SendDebug Err.Number, Err.Description
       
       lResult = 9.9999e99
   End If
   On Error Goto 0
   
   Return lResult
End Function

See also: