Функция создает массив типа Variant, заполненный указанными данными.
Private Sub Form_Load()
Dim a
'переменной a присваиваем массив
a = Array(5, 10, 14, 99)
'выводим в окно отладки значение 2 элемента _
массива, в данном случае - 14
Debug.Print a(2)
End Sub
Знаете ли Вы, что, как ни тужатся релятивисты, CMB (космическое микроволновое излучение) - прямое доказательство существования эфира, системы абсолютного отсчета в космосе, и, следовательно, опровержение Пуанкаре-эйнштейновского релятивизма, утверждающего, что все ИСО равноправны, а эфира нет. Это фоновое излучение пространства имеет свою абсолютную систему отсчета, а значит никакого релятивизма быть не может. Подробнее читайте в
FAQ по эфирной физике.