Código vb:
Ver original- Function 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.