Функция Array

Private Sub Form_Load()
  Dim a
  'переменной a присваиваем массив 
  a = Array(5, 10, 14, 99) 
  'выводим в окно отладки значение 2 элемента _
   массива, в данном случае - 14
  Debug.Print a(2)
End Sub

Знаете ли Вы, что в 1974 - 1980 годах профессор Стефан Маринов из г. Грац, Австрия, проделал серию экспериментов, в которых показал, что Земля движется по отношению к некоторой космической системе отсчета со скоростью 360±30 км/с, которая явно имеет какой-то абсолютный статус. Естественно, ему не давали нигде выступать и он вынужден был начать выпуск своего научного журнала "Deutsche Physik", где объяснял открытое им явление. Подробнее читайте в FAQ по эфирной физике.