Новичок не может справится с массивами - VB

Формулировка задачи:

Доброго времени суток. Я только начинаю программировать, столкнулся с проблемой в массивах. В общем суть задачи: Нужно модифицировать программу, которая высчитывает значение x по заданной формуле таким образом, чтобы значение функции многократно вычислялось при изменении аргумента в диапазоне xэ[0;7] и с шагом в 0.5 Я создал интуитивно, и естественно оно не работает. Ткните носом на ошибки.

Option Explicit
Dim mas() As Variant
 
Private Sub Command1_Click()
a = 2.6
b = -0.39
Dim x As Variant
For x = 0 To 7 Step 0.5
mas(x) = x
If x < 2.8 Then
 x = (a + b) / (e ^ x + Cos(x))
  Else
   If x >= 6 Then
 x = e ^ x + Sin(x)
    Else
    x = (a + b) / (x + 1)
   End If
End If
Text2.Text = Text1.Text & mas(x) & vbCrLf
Next x
End Sub

Решение задачи: «Новичок не может справится с массивами»

textual
                            Листинг программы 
                        

                            Private Sub Command1_Click()
Dim mas() As Variant
Dim c As Variant
ReDim mas(7 / 0.5 + 1)
a = 2.6
b = -0.39
Dim x As Variant
For x = 0 To 7 Step 0.5
 
If x < 2.8 Then
 mas(x * 2) = (a + b) / (e ^ x + Cos(x))
  Else
   If x >= 6 Then
 mas(x * 2) = e ^ x + Sin(x)
    Else
 mas(x * 2) = (a + b) / (x + 1)
   End If
End If
c = "x = " & Str(x) & " mas = " & Str(mas(x * 2))
List1.AddItem c
Next x
End Sub
                        