Dim YourArray
YourArray = Array("a", "b", "c")
Debug.Print UBound(YourArray) - LBound(YourArray) + 1

'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