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

Sub Podpr()
Cells.ClearContents
 
na = InputBox("Ââåäèòå ðàçìåðíîñòü", "Ââîä äàííûõ", 12)
nb = InputBox("Ââåäèòå ðàçìåðíîñòü", "Ââîä äàííûõ", 16)
nc = InputBox("Ââåäèòå ðàçìåðíîñòü", "Ââîä äàííûõ", 20)
nd = InputBox("Ââåäèòå ðàçìåðíîñòü", "Ââîä äàííûõ", 8)
 
ReDim A(1 To na)
ReDim B(1 To nb)
ReDim C(1 To nc)
ReDim D(1 To nd)
 
Cells(5, 1) = "Ìàññèâû"
Cells(2, 1) = "I ="
Cells(4, 1) = "K ="
Cells(3, 1) = "L ="
Cells(7, 1) = "A ="
Cells(8, 1) = "B ="
Cells(9, 1) = "C ="
Cells(10, 1) = "D ="
Cells(5, 22) = "Ñóììà"
 
Call vvodA(na, A())
Call vivodA(na, A())
Call vvodB(nb, B())
Call vivodB(nb, B())
Call vvodC(nc, C())
Call vivodC(nc, C())
Call vvodD(nd, D())
Call vivodD(nd, D())
 
Cells(7, na + 2) = S(A)
Cells(8, nb + 2) = S(B)
Cells(9, nc + 2) = S(C)
Cells(10, nd + 2) = S(D)
 
End Sub
 
Sub vvodA(na As Integer, A() As Single)
For I = 1 To na
Cells(2, I + 1) = I
A(I) = 3.8 * I ^ 2 - 12.4 * I + 5.1
Next I
End Sub
Sub vivodA(na As Integer, A() As Single)
For I = 1 To na
Cells(2, I + 1) = I
Cells(7, I + 1) = A(I)
Next I
End Sub
Sub vvodB(nb As Integer, B() As Single)
For I = 1 To nb
B(I) = 5.6 * I ^ 2 + 11.5 * I + 9.9
Next I
End Sub
Sub vivodB(nb As Integer, B() As Single)
For I = 1 To nb
Cells(8, I + 1) = B(I)
Next I
End Sub
Sub vvodC(nc As Integer, C() As Single)
For K = 1 To nc
Cells(4, K + 1) = K
C(K) = 18.1 * K ^ 2 - 6.8 * K + 9.9
Next K
End Sub
Sub vivodC(nc As Integer, C() As Single)
For K = 1 To nc
Cells(4, K + 1) = K
Cells(9, K + 1) = C(K)
Next K
End Sub
Sub vvodD(nd As Integer, D() As Single)
For L = 1 To nd
Cells(3, L + 1) = L
D(L) = 10.5 * L ^ 2 - 21.6 * L + 6.9
Next L
End Sub
Sub vivodD(nd As Integer, D() As Single)
For L = 1 To nd
Cells(3, L + 1) = L
Cells(10, L + 1) = D(L)
Next L
End Sub
Function S(M)
S = 0
Dim j
For j = 1 To nc
S = IIf(M(j) < 0, S + Abs(M(j)), S)
Next j
End Function

Function MODUL_OTR_ITEM(ByRef X() As Double) As Double
        Dim S As Double
        S = 0
        For i = 1 To UBound(X)
            If X(i) < 0 Then S = S + Abs(X(i))
        Next
        MODUL_OTR_ITEM = S
    End Function