How to call build-in function that is overwritten with same name?

[onidarbe]

Hi,

I'd like to find a way (trick) to exceptionally call a VBA build-in function that is overwritten with a custom function. Excel 2010 64bit

For instance if I want to write my own UBound function with the same name, but in that function be able to call the VBA build-in function UBound.

something like: (not working code!)

Function UBound(xArray) As Integer
    On Error Resume Next
    If LBound(xArray) <= UBound(xArray) Then   '''array is allocated
         v= callToBuildInUBound(xArray)   '''' ?????
    Else   '''no error in UBound anymore
         v= -1
    End If
    UBound=v
End Function

 

[slinky]

Surely that's, in effect, a circular reference, so would be a loop?

 

[onidarbe]

Not if you could call the build-in function instead of the one in the module.
Isn't there something in lib "user32" or some other way to skip the user defined function and call upon the VBA build-in one?

 

[slinky]

Forgive the, potentiall silly, question.
Why does the function need to have the same name as the existing, built in, function?

 

[GermanPath]

as UBound is an build-in function you can´t create an UDF with same name.

 

[onidarbe]

You can create a UDF with same name, but you lose the build-in one
And I would like the same name, just not to forget to use it. It's an update of the build-in one

 

[RoryA]

The compiler shouldn't allow you to create a function called UBound

 

[onidarbe]

Hey! you're right! Can't call it UBound, but then why can I create isMissing() ?

Function isMissing(xThis As Variant) As Boolean '''10/06/2013, michel(dot)be(a)gmail....
'''To replace VBA build-in IsMissing(), because using IsMissing on a copy from an non-allocated array to a non-array-dimentioned variant,
'''will raise a fatal error that closes Excel with the message "Microsoft Excel has stopped working" !!!
    If IsError(xThis) Then
        If CStr(CVErr(xThis)) = "Error 448" Then isMissing = True
    End If
End Function

So I'll keep it calling fUBound updated version by now:

Function fUBound(xArray As Variant, Optional iRank As Integer = 1) As Integer '''14/06/2013, michel(dot)be(a)gmail....'''Same af build-in UBound() but without errors on unallocated arrays
'''I wish I could use the function-name "UBound" and then still be able to call the build-in UBound !?
    If isAllocated(xArray) Then
        fUBound = UBound(xArray, iRank)
    Else
        fUBound = -1
    End If
End Function


Function fLBound(xArray, Optional iRank As Integer = 1) As Integer   '''14/06/2013, michel(dot)be(a)gmail....
'''Same af build-in LBound() but without errors on unallocated arrays
    If isAllocated(xArray) Then
        fLBound = LBound(xArray, iRank)
    Else
        fLBound = 0
    End If
End Function

Function isAllocated(xThis As Variant) As Boolean  '''07/06/2013, michel(dot)be(a)gmail....
    If IsArray(xThis) Then
        On Error Resume Next
        isAllocated = LBound(xThis) <= UBound(xThis)
    End If
End Function