Check if function has been called as sub

[Bob Phillips]

No, I am asking what is the point? What is wrong with this.

Sub TestFunction()
    Dim res1Of1 As Long
    Dim res1Of2 As Long
    Dim res2Of2 As Boolean
    Call OneOrTwo(3, res1Of1)
    MsgBox res1Of1
    res2Of2 = OneOrTwo(5, res1Of2)
    MsgBox res1Of2
    MsgBox res2Of2    
End Sub

Function OneOrTwo(ByVal inp As Long, ByRef out As Long) As Boolean
    out = 2 * inp
    OneOrTwo = out > 5
End Function

One function to rule them all, one function to find them, one function to bring them all and in the darkness bind them ... does it all.