default value

[jmi44]

I have many calls to different functions that may sometimes provoke errors. In a case of an error, I want them to return a default value. This is possible in the following "spaghetti code" example:

Sub MainTest()
a = 1
b = 0
On Error GoTo DivisionErrorHandler
c = a / b
On Error GoTo 0
MsgBox c

On Error GoTo FontNameErrorHandler
d = He.FontName
On Error GoTo 0
MsgBox d

Exit Sub
DivisionErrorHandler:
c = 0
Resume Next

FontNameErrorHandler:
d = ""
Resume Next
End Sub

Instead of this spaghetti code, I would like to write something like this:

Sub MainTest()
a = 1
b = 0
c = DefaultValue(a / b, 0)
MsgBox c

d = DefaultValue(He.FontName, "")
MsgBox d
End Sub

Is it possible? If yes, how?

 

[Golom]

Don't think so because the error will be raised in the calling routine ... not in the "DefaultValue" function.

You could change your error handling strategy however

Sub MainTest()
    On Error Resume Next

    a = 1
    b = 0
    c = a / b
    If Err.Number <> 0 Then c = 0
    MsgBox c
    
    Err.Clear
    d = He.FontName
    If Err.Number <> 0 Then d = ""
    MsgBox d

End Sub

 

[SBerthold]

Or, along with the Resume Next, just set all of the result variables to their default values at the start:

Sub MainTest()
    On Error Resume Next
    c = 0
    d = ""
.
.
.

 

[jmi44]

Thank you Golom and SBerthold. The solution with On Error Resume Next is much better than my "spaghetti code". But it is still four lines of code instead of just one with the desired (but probably impossible) solution.