Дата в VBA(Excel)

[DimR]

Sub Dimr()
Dim T(21) As Integer, i As Integer, Tr As Double
Const Tc1 As Double = 132.9, Tc2 As Double = 304.2, Tc3 As Double = 190.6
Const strCO As String = "CO"
Const strCO2 As String = "CO2"
Const strCH4 As String = "CH4"
Const strT As String = "T,K"
Const Vers As String = "Расчёт безразмерной температуры для угарного, углекислого газа и метана"
Const Data As Date = #3/25/2010#


T(1) = 373
For i = 1 To 21 Step 1
Tr1 = T(i) / Tc1
Tr2 = T(i) / Tc2
Tr3 = T(i) / Tc3

Cells(1, 1) = strT
Cells(1, 2) = "Tr " + strCO
Cells(1, 3) = "Tr " + strCO2
Cells(1, 4) = "Tr " + strCH4

Cells(i + 1, 1) = T(i)
Cells(i + 1, 2) = Tr1
Cells(i + 1, 3) = Tr2
Cells(i + 1, 4) = Tr3

T(i + 1) = T(i) + 5
Next i

MsgBox Data
MsgBox Vers
End Sub

Не выдаёт сообщением дату и версию. Выдаёт одну и ту же ошибку,смысл которой понять не в состоянии.Помогите разобраться

[Cpluser]

У меня все работает а что за ошибка?

Const Data As Date = #3/25/2010#
MsgBox (Data)

Попробуй

MsgBox (CStr(Data))

[eoln]

Сообщение от DimR

Dim T(21) As Integer

For i = 1 To 21 Step 1

  T(i + 1) = T(i) + 5
Next i

Выход за пределы. Выходов много: массив надо объявить как

Dim T(22) As Integer

или проверять значение переменной i, или увеличивать в начале цикла (изменив диапазон)

ДОБАВЛЕНО
А вообще-то там массив и не нужен, достаточно одной переменной. Но это уж дело автора

[DimR]

Run-time error '9'
Subscript out of range

Таблицы в экселе выдаёт,а сообщения о дате и версии нет..

[DimR]

eoln, всё гениальное просто. Моё человеческое спасибо!