Подпрограмма: вычисление модуля суммы отрицательных элементов массива - VB

Sub Podpr()
Dim n As Integer, x(100) As Single, A(100) As Single, B(100) As Single, C(100) As Single, D(100) As Single, S As Single
Cells(5, 1) = "ГЊГ*Г±Г±ГЁГўГ»"
Cells(6, 1) = "X="
Cells(7, 1) = "A="
Cells(8, 1) = "B="
Cells(9, 1) = "C="
Cells(10, 1) = "D="
Cells(11, 1) = "ÑóììГ*"
Cells(12, 1) = "S="
n = InputBox("Ââåäèòå Г°Г*çìåðГ*îñòü")
Call vvod(n, x)
Call vivodAi(n, A)
Call vivodBi(n, B)
Call vivodCk(n, C)
Call vivodDl(n, D)
Call Sum(n, x, A, B, C, D)
End Sub
 
Sub vvod(n As Integer, x() As Single)
Dim i As Integer
For i = 1 To n
x(i) = Cells(6, i + 1)
Next i
End Sub
 
Sub vivodAi(n As Integer, A() As Single)
Dim i As Integer
i = Cells(4, 2)
A(i) = 3.8 * i ^ 2 - 12.4 * i + 5.1
For i = 1 To n
Cells(7, i + 1) = A(i)
Next i
End Sub
Sub vivodBi(n As Integer, B() As Single)
Dim i As Integer
i = Cells(4, 2)
B(i) = 5.6 * i ^ 2 + 11.5 - 29.3
For i = 1 To n
Cells(8, i + 1) = B(i)
Next i
End Sub
Sub vivodCk(n As Integer, C() As Single)
Dim k As Integer
k = Cells(4, 6)
C(k) = 18.1 * k ^ 2 - 6.8 * k - 9.9
For k = 1 To n
Cells(9, k + 1) = C(k)
Next k
End Sub
Sub vivodDl(n As Integer, D() As Single)
Dim l As Integer
l = Cells(4, 4)
D(l) = 10.5 * l ^ 2 - 21.61
For l = 1 To n
Cells(10, l + 1) = D(l)
Next l
End Sub
 
Sub Sum(n As Integer, x() As Single, A() As Single, B() As Single, C() As Single, D() As Single)
Dim i As Integer, j As Integer, k As Integer, l As Integer
S = 0
For i = 1 To n
If x(i) < 0 Then
  If A(i) < 0 Then
    If B(i) < 0 Then
      If C(k) < 0 Then
        If D(l) < 0 Then
        S = Abs(S) + A(i) + B(j) + C(k) + D(z) + x(i)
        Else
        Cells(11, 2) = "Г*ГҐГІ S"
        GoTo 1
        End If
     Else
     Cells(11, 2) = "Г*ГҐГІ S"
     GoTo 1
     End If
   Else
   Cells(11, 2) = "Г*ГҐГІ S"
   GoTo 1
   End If
  Else
  Cells(11, 2) = "Г*ГҐГІ S"
  GoTo 1
  End If
Else
Cells(11, 2) = "Г*ГҐГІ S"
GoTo 1
End If
Next i
Cells(11, 2) = S
1: End Sub