Вычислить m[0]n[0] +m[1]n[1] +…+m[k]n[k], где k = min{p,q}

Private Sub Form_Activate()
Dim L(), m&(), n&(), p&, q&, i&, s#
L = Array(13, 4, -2, 6, 7, -1, -5, 2, -3, 4)
For i = UBound(L) To 0 Step -1
  If L(i) < 0 Then
    ReDim Preserve m(p)
    m(p) = L(i)
    p = p + 1
  Else
    ReDim Preserve n(q)
    n(q) = L(i)
    q = q + 1
  End If
Next i
For i = 0 To IIf(p < q, p, q) - 1
  s = s + m(i) * n(i)
Next i
Print s
End Sub

Private Sub Form_Unload(Cancel As Integer)
    Dim f&, u&, l$(), p&, q&, rez#
    l = Split("13, 4, -2, 6, 7, -1, -5, 2, -3, 4", ",")
    ReDim m$(0), n$(0)
    u = UBound(l)
    For f = u To 0 Step -1
        If l(f) < 0 Then
            m(0) = m(0) & " " & Trim(l(f)): p = p + 1
        ElseIf Val(l(f)) > 0 Then n(0) = n(0) & " " & Trim(l(f)): q = q + 1
        End If
    Next
    m = Split(Mid$(m(0), 2)): n = Split(Mid$(n(0), 2))
    For f = 0 To IIf(p < q, p, q) - 1
      rez = rez + m(f) * n(f)
    Next f
    cls
    Print "The result of calculation = " & rez
    CreateObject("SAPI.SpVoice").Speak "The result of calculation " & rez
    If MsgBox("Выйти ?", vbYesNo) = vbNo Then Cancel = 1
End Sub