Public Function IsEmptyArray(pValue As Variant, Optional pDim As Variant) As Boolean
'Function
'   Used to determine if an Object Array is empty.
'Parameters
'   pValue (Variant) = The array to be tested.
'   pDim (Optional Variant Long) = The dimension of the array to test.
'       The first dimension is considered 1.
'	Default: 1
'Return
'   Returns True if the Array is empty.
'   Returns False if the Array is not empty.
'Version History
'   1.0 10/10/00 Tested
'---

'Default parameters
If IsMissing(pDim) Then pDim = 1

'Set the error handler
On Error Resume Next

'Use UBound() to raise an error if the array is empty
Err.Clear
Dim dummy As Variant: dummy = UBound(pValue, pDim)

'An error was raised, the array must be empty, return True
If Err.Number <> 0 Then
    IsEmptyArray = True

'No error was raised, the array must not be empty, return False
Else
    IsEmptyArray = False

End If

End Function