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

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