'Since VBA arrays can have any integer value for the base element,
'the only sure fire way to determine how many elements is in the array
'is to calculate the value:
MsgBox UBound(Arr) - LBound(Arr) + 1	'<--for elems in 1D array
MsgBox UBound(Arr, 1) - LBound(Arr, 1) + 1	'<--for rows in 2D array
MsgBox UBound(Arr, 2) - LBound(Arr, 2) + 1	'<--for cols in 2D array

'Since VBA arrays can have ANY integer value (from -2147483648 to
'2147483647) for the lower index in the range for a rank,
'the only sure fire way to determine how many elements is in the array
'is to calculate the value:
MsgBox UBound(Arr) - LBound(Arr) + 1	'<--for elems in 1D array
MsgBox UBound(Arr, 1) - LBound(Arr, 1) + 1	'<--for rows in 2D array
MsgBox UBound(Arr, 2) - LBound(Arr, 2) + 1	'<--for cols in 2D array