Sub массивы_одномерные1()
Dim x(0 To 9) ' создаст пустой массив на 10 элементов. (нижняя граница массивов по умолчанию = 0)
' Заполнить такой массив можно циклом
       For i = 0 To 9
           x(i) = i
           Debug.Print x(i) 'сразу показываем, что хранится в массиве под индексом i
       Next
End Sub

Sub массивы_одномерные2()
Dim x2(9) ' так же создаст пустой массив на 10 элементов.
' и точно так же его заполняем
       For i = 0 To 9
           x2(i) = i
           Debug.Print x2(i) 'сразу показываем, что хранится в массиве под индексом i
       Next
End Sub

Sub массивы_одномерные3()
'создадим одномерный массив, который может хранить любые значения
Dim x3
       x3 = Array(0, 1.114, "15.03.1999", 3, "Вася", 5, 6, "турбодизель 2.0", 8, 9)
'Каждый элемент массива имеет свой индекс(адрес)
'Debug.Print x3(0) ' покажет первый элемент
'Debug.Print x3(LBound(x3)) 'так же покажет первый элемент (LBound(имя_массива) - нижняя граница
                      'UBound(имя_массива) - верхняя граница
'Цикл по элементам одномерного массива от нижнего края до верхнего.
       For i = LBound(x3) To UBound(x3)
          Debug.Print x3(i) 'показываем, что хранится в массиве под индексом i
       Next
End Sub