Количество элементов в массиве

Dim A (n) As Integer ' здесь число элементов n+1 
Dim A (1 To n) As Integer ' здесь число элементов n
 
Dim A (m, n) As Integer ' здесь число элементов (m+1)(n+1)
Dim A (1 To m, 1 To n) As Integer ' здесь число элементов m*n

Dim a(100, 5, 4) As Byte
Dim total As Integer
total = (UBound(A, 1) + 1) * (UBound(A, 2) + 1) * (UBound(A, 3) + 1)

Function ArrayCount(x) As Long
'Возвращает число элементов массива. Массив может быть любого типа и с любым числом размерностей.
'В случае если аргумент - не массив или неинициализированный массив, возвращает 0.
 
Dim i As Long
  On Error Resume Next
  ArrayCount = UBound(x) - LBound(x) + 1 'реальное число элементов первой размерности, если массив "нормальный"
                                         '0 и err=9, если аргумент не массив или массив не инициализирован
                                         '0 в случае пустого массива, возвращаемого Split("")
  For i = 2 To 60 'F1: up to 60 multiple dimensions may be declared
    ArrayCount = ArrayCount * (UBound(x, i) - LBound(x, i) + 1)
    Select Case Err
    Case 0 'ничего не делать
    Case 9 'Subscript out of range
      Exit Function
    Case Else 'не массив
      ArrayCount = 0
      Exit Function
    End Select
  Next
End Function
 
Sub test()
Dim a(2, 3), b(1 To 2, -1 To 1, 2 To 5) As Single, c() As Byte
Debug.Print ArrayCount(a), ArrayCount(b) ' 12   24
Debug.Print ArrayCount(c) '0 массив не инициализирован
ReDim c(0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1)
Debug.Print ArrayCount(c) '1048576
Debug.Print ArrayCount(Split("a s d")) '3
Debug.Print ArrayCount(Split("")) '0 у этого массива UBound=-1, LBound=0
Debug.Print ArrayCount(4) '0 не массив
End Sub

Dim C(-4 To 4) As Integer
 
    Debug.Print LBound(C, 1)   ' печать нижней границы
    Debug.Print UBound(C, 1)  ' печать верхней границы
 
    Size& = UBound(C, 1) - LBound(C, 1) + 1 ' размер массива
    
    Debug.Print Size&