Решение уравнения через массив в Visual Basic - VB

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

ВСЕМ ПРИВЕТ. Возникли проблемы при написании программы. Тем кто поможет буду очень признателен... Значения массива M и необходимых параметров задаются самостоятельно при выполнении тестового примера. Количество элементов массива должно быть не меньше 15. Элементы массива должны содержать нули и положительные и отрицательные вещественные числа. В программе предусмотреть ввод элементов массива M с клавиатуры. Введенные значения элементов массива должны быть отображены на форме проекта. Для ввода параметров, необходимых для решения задачи, и вывода результата использовать компонент TextBox. В качестве поясняющих надписей использовать компонент Label.

Option Explicit
 
Dim A, B, C, Z, D As Single
Dim i, k, l, n, m As Integer
Dim x() As Single
 
Private Sub Command1_Click()
k = Val(Text1.Text)
End Sub
 
Private Sub Command2_Click()
n = Val(Text2.Text)
End Sub
 
Private Sub Command3_Click()
Dim Am As Single
For i = 1 To n Step 1
x(i) = Val(Text3.Text)
Text3.Text = ("Введите x" & i)
Next x
End Sub
 
Private Sub Command4_Click()
For i = 1 To n Step 1
If (i Mod 2 = 0) And (x(i) > k) Then
A = A + x(i)
End If
If (x(i) = 0) Then
l = l + 1
 If (l = 2) Then
 B = i
 End If
End If
D = D + x(i)
m = m + 1
C = D / m
Next x
Z = (3 * A + C) / (B + 5)
Text6.Text = Str(A)
Text7.Text = Str(B)
Text8.Text = Str(C)
Text9.Text = Str(Z)
Text5.Text = Str(x(i))
End Sub
 
Private Sub Form_Load()
Command1.Caption = "Запомнить"
Command2.Caption = "Запомнить"
Command3.Caption = "Внести в массив"
Command4.Caption = "Выполнить"
End Sub

Вот сам код. На Command3 выдает ошибку. Возможно ошибки и дальше будут, но программа вылетает уже тут. И форма имеет вот такой вид.

Решение задачи: «Решение уравнения через массив в Visual Basic»

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

                            Private Sub Command3_Click()
'Dim Am As Single
REDIM X(1TO VAL(TEXT2))
For i = 1 To UBOUND(X) 'Step 1
  'x(i) = Val(Text3.Text)
  x(i) = Val(INPUTBOX("Введите x" & i))
  'Text3.Text = ("Введите x" & i)
Next I 'x - НЕВЕРНАЯ ПЕРЕМЕННАЯ В NEXT!
End Sub
                        