Вычислить квадратный корень из суммы квадратов чётных элементов одномерного массива

Sub P2()
Const Ч = True ' = False, если вдруг понадобится пройтись по нечётным
Dim Массив, i, СуммаКвЧ, СуммаКвН, КвКореньЧ, КвКореньН, ЭлементыЧ, ЭлементыН
 
Массив = Array(0, 5, -5, 36, -5) 'создали одномерный массив функцией Array
 
    For i = 0 To UBound(Массив)
        If Массив(i) Mod 2 = 0 Then 'если элемент i делится нацело на 2
            СуммаКвЧ = СуммаКвЧ + Массив(i) ^ 2
            ЭлементыЧ = ЭлементыЧ & " " & Массив(i)
        Else                        'если элемент i не делится нацело на 2
            СуммаКвН = СуммаКвН + Массив(i) ^ 2
            ЭлементыН = ЭлементыН & " " & Массив(i)
        End If
    Next i
 
КвКореньЧ = Sqr(СуммаКвЧ): КвКореньН = Sqr(СуммаКвН)
 
MsgBox "Массив: " & Join(Массив) & vbCr & vbCr & _
        "Элементы, " & IIf(Ч, "", "не") & "кратные двум: " & _
        IIf(Ч, ЭлементыЧ, ЭлементыН) & vbCr & vbCr & _
        "Сумма квадратов: " & IIf(Ч, СуммаКвЧ, СуммаКвН) _
        & vbCr & vbCr & _
        "Квадратный корень: " & IIf(Ч, КвКореньЧ, КвКореньН)
End Sub