Заполнение массива (InputBox) - VB

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

написал программу по заполнению массива с помощью Array, подсчета суммы нечетных элементов, подсчета суммы четных элементов, произведения нечетных элементов, поисками минимума/максимума. надо сделать заполнение массива через

InputBox

, помогите, пожалуйста вот код

                    Листинг программы
                
 
                        
                          
                    
Dim A(6) As Variant
Private Sub Command1_Click()
Dim S As Long, I As Integer, A As Variant, D As Long, E As Long, min As Integer, max As Integer
S = 0
For I = 0 To 6
A = Array(1, 4, 12, 23, 34, 3, 23)
List1.AddItem A(I)
S = S + A(I)
Next I
Text2 = S
D = 0
For I = 0 To 6
A = Array(1, 4, 12, 23, 34, 3, 23)
If A(I) Mod 2 = 0 Then
D = D + A(I)
End If
Next I
Text3 = D
E = 1
For I = 0 To 6
A = Array(1, 4, 12, 23, 34, 3, 23)
If A(I) Mod 2 = 1 Then
E = E * A(I)
End If
Next I
Text4 = E
min = A(1)
For I = 0 To 6
A = Array(1, 4, 12, 23, 34, 3, 23)
If min > A(I) Then min = A(I)
Next I
Text5 = min
max = A(1)
For I = 0 To 6
A = Array(1, 4, 12, 23, 34, 3, 23)
If max < A(I) Then max = A(I)
Next I
Text6 = max
End Sub

Решение задачи: «Заполнение массива (InputBox)»

textual
                            Листинг программы 
                        
FOR I = 0 TO 6
A(i) = Val(inputbox("введите число"))
next