Código vb:
Ver originalFunction EstaArrayVacio(vArray As Variant) As Boolean
On Error Resume Next
EstaArrayVacio = UBound(vArray)
EstaArrayVacio = Err ' Error 9 (Subscript out of range)
End Function
Por si alguien le sirve esta peque;a funcion que hace lo que pides en tu pregunta, solo como otra opcion.
Saludos.