Function ElementCount(pArray)
'Function
'   Used to determine the number of elements in an array.
'Return (Long)
'   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.
'Dependencies
'   IsEmptyArray()
'Version History
'   1.0 11/19/2003 Tested by Russ Tanner
'---

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

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

End Function