Массивы в VBA Опции

[RakeHell]

Здравствуйте, нужна помощь по обработке одномерных массивов в VBA.
Собственно, задание:
Задан одномерный массив размером N. Сформировать два массива размером N/2, включая в первый элементы исходноо массива с четными индексами, а во второй - с нечетными.Вычислить суммы элементов каждого из массивов.
Что сделал:

Исходный код

Sub InputArray5()
Dim A() As Integer
Dim B() As Integer
Dim C() As Integer
Randomize
N = InputBox("Размер массива", "Заполнение одномерного массива")
ReDim A(1 To N)
For I = 1 To N
ArrayValue = Int((100 * Rnd) + 1)
A(I) = ArrayValue
Worksheets("Лист1").Cells(I + 1, 1) = A(I)
Next I
ReDim B(1 To N / 2)
ReDim C(1 To N / 2)
Worksheets("Лист1").Cells(1, 1) = "A"
Worksheets("Лист1").Cells(1, 2) = "B"
Worksheets("Лист1").Cells(1, 4) = "C"
jB = 0
jC = 0
For I = 1 To N
TestValue = A(I) - Int(A(I) / 2) * 2
Select Case TestValue
Case 0
jB = jB + 1
B(jB) = A(I)
Case 1
jC = jC + 1
C(jC) = A(I)
End Select
Next I

For I = 1 To N / 2
If (Int(B(I) / 2) * 2 - B(I)) = 0 Then
Sum = Sum + B(I)
End If
Next I


End Sub

В конце, кажется, глупость написал. Не понимаю как теперь сумму элементов посчитать.
Вроде понимаю, как просто сумму считать, а вот с нечетными и четными проблема.