Public Function ElementCount(pArray As Variant, Optional pDim As Variant) As Long
'Function (Long)
'   Used to determine the element count of an array.
'Return
'   Returns the number of elements in the specified array.
'   If the specified array contains no elements, returns zero (0).
'Parameters
'   pArray (Variant) = The array to return an element count for.
'   pDim (Optional Variant Long) = The dimension of the array to test.
'       The first dimension is considered 1.
'       Default: 1
'Dependencies
'   IsEmptyArray()
'Version History
'   1.0 11/13/2000 Tested
'---

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

'The specified array is empty, return 0
If IsEmptyArray(pArray, pDim) Then
    ElementCount = 0
    Exit Function
End If

'Return the number of elements in the array
ElementCount = UBound(pArray, pDim) - LBound(pArray, pDim) + 1

End Function