Дан массив А(10). Найти элементы, абсолютная величина которых больше 5

Sub P1()
'С помощью Dim создаём в оперативной памяти компьютера массив A.
'10 - это порядковый номер последнего элемента в массиве.
'Т.к. элементы в массиве нумеруются по умолчанию с нуля, то
'в массиве A(10) - будет 11 элементов.
'Single означает, что в массиве могут быть и целые и дробные числа.
Dim A(10) As Single
'Создание в оперативной памяти компьютера переменной i.
'Long означает, что в переменной могут быть только целые числа.
Dim i As Long
'String означает, что в переменной может быть только текст.
Dim Накопитель As String
'For ... To ... Next - это цикл. Цикл используется, чтобы делать
'одно и то же действие много раз.
'Используя цикл, заполним массив числами с листа Excel.
For i = 0 To 10
    A(i) = Cells(i + 1, 1).Value
Next i 'Next увеличивает переменную на 1.
'Собственно решение задачи.
'Abs используется, чтобы превратить число в абсолютное число.
For i = 0 To 10
    'If ... Then ... End If используется для выбора действия.
    'Далее код читается так: если абслютное значение элемента массива больше 5, то
    If Abs(A(i)) > 5 Then
        'поместим в переменную Накопитель порядковый номер элемента массива.
        '& - используется для объединения кусков текста в одну строку.
        Накопитель = Накопитель & " " & i
    End If
Next i
'MsgBox используется для вывода на монитор информации из переменных
MsgBox Накопитель
End Sub