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