Исправить ошибки в программе вычисления характеристик вектора - VBA

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

задание такое : Вычислить сумму отрицательных и произведение положительных элементов вектора x={x1, x2, …, x10}. Найти длину этого вектора.

Option Explicit
 
Sub Кнопка1_Щелчок()
Dim A(1 To 10), sum, proiz, dlina, i As Integer
 
For i = 1 To 10
     A(i) = Cells(1, i + 1).Value
Next
 
 For i = 1 To 10
    If A(i) <= 0 Then
      sum = sum + A(i)
    Else
      proiz = proiz * A(i)
    End If
 
 Next
dlina = 0
    For i = 1 To 10
      dlina = dlina + A(i)
 Next
Range("A1").Value = sum
Range("B1").Value = proiz
Range("C1").Value = dlina
End Sub

Решение задачи: «Исправить ошибки в программе вычисления характеристик вектора»

textual
                            Листинг программы 
                        

                            Sub Кнопка1_Щелчок()
Dim A(1 To 10), sum, proiz, dlina, i As Integer
 
For i = 1 To 10
A(i) = Cells(1, i + 1).Value
Next
''''''''''''''''''''''''''''''''''по крайней мере....................
sum=0
pros=1
'''''''''''''''''''''''''''''''''
For i = 1 To 10
If A(i) <= 0 Then
sum = sum + A(i)
Else
proiz = proiz * A(i)
End If
 
Next
dlina = 0
For i = 1 To 10
dlina = dlina + A(i)
Next
Range("A1").Value = sum
Range("B1").Value = proiz
Range("C1").Value = dlina
End Sub
                        