Is there a way to make a better implementation of the excel IFERROR function using VBA ?

See more:

VBA

Hi all,
I would like to have a function which returns the signed maximum available number in Excel in case or overflow (i.e. + or - 9.99999999999999E+307) in case of overflow and zero in case of underflow.
IFERROR let me only set a single value in case of error.

I came out with some code but it doesn't work

The main reason, I think is that the argument, which could be an expression, is evaluated by Excel before passing it to the function, so I cannot control what happens

Any clue ?

Thanks

What I have tried:

Option Explicit
Function Test(ByVal x As Variant) As Variant
Application.Volatile
Dim retval As Variant
Application.ScreenUpdating = False
On Error GoTo ErrorHandling
retval = Evaluate(x)
If VarType(retval) = vbError Then
Select Case retval
 Case CVErr(xlErrDiv0)
 MsgBox "#DIV/0! error"
 Case CVErr(xlErrValue)
 MsgBox "#VALUE! error"
Case Else
         MsgBox "UNKNOWN ERROR  - Error# " & Err.Number & " : " & Err.Description
         End Select
End If

Test = retval
Application.ScreenUpdating = True
Exit Function
ErrorHandling:
Select Case Err.Number
Case 10 ' Divide by 0
MsgBox "Division by 0"
 Case Else
         MsgBox "UNKNOWN ERROR  - Error# " & Err.Number & " : " & Err.Description
         End Select
End Function