Создание макроса - VB

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

Напишите, пожалуйста макрос для задания. Найти сумму элементов матрицы, значения которых попадают в отрезок [-2.5;3.5].
Матрица:
2,8 3,6 -1,7
А= 0,28 3,12 1,4
0,67 5,4 8,2

Решение задачи: «Создание макроса»

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

                            Sub makr()
Dim a!(3, 3), S!, i%, j%
S = 0
For i = 1 To 3
For j = 1 To 3
a(i, j) = Cells(i + 1, j)
If a(i, j) >= -2.5 And a(i, j) <= 3.5 Then S = S + a(i, j)
Next
Next
MsgBox "S=" + Str(S)
End Sub

                        