Нахождение суммы элементов массива, которые попадают в диапазон от -2 до 2 - VB

Sub Обработка массива ()
Dim x() As Single
Dim s As Single, r As Single
Dim i As Integer, j As Integer, n As Integer
n = CInt(InputBox("Введите  число элементов массива"))
ReDim x(n)
s = 0
Cells(1, 1) = "Исходный массив"
Cells(1, 1) = "Исходный массив"
For i = 1 To n
x(i) = i * Sin(1 - i)
Cells(i + 1, 1) = x(i)
If x(i) > 0 Then s = s + x(i)
Next i
Cells(3, 3) = "Сумма положительных элементов массива"
Cells(4, 3) = s
Cells(1, 5) = "Отсортированный массив"
For j = 1 To n - 1
For i = 1 To n - j
If x(i) < x(i + 1) Then
r = x(i + 1)
x(i + 1) = x(i)
x(i) = r
End If
Next: Next
For i = 1 To n
Cells(i + 1, 5) = x(i)
Next
End Sub