Public Function IsEmptyArray(pArray)
'Function
'   Used to determine if an array is empty.
'Parameters
'   pArray (Variant) = The array to be tested.
'Return (Boolean)
'   Returns True if the Array is empty.
'   Returns False if the Array is not empty.
'Version History
'   1.0 11/19/2003 Tested by Russ Tanner
'---

'Use inline error handling
On Error Resume Next
Err.Clear

'Use UBound() to raise an error if the array is empty
Dim dummy
dummy = UBound(pValue)

'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