Найти сумму четных членов ряда и произведение нечетных членов ряда

Private Sub CommandButton1_Click()
Dim a(), q(), n&, m&
Randomize
n = InputBox("n")
m = InputBox("m")
s = 0
p = 1
ReDim a(1 To n)
ReDim q(1 To n)
For i = 1 To n
  a(i) = (i ^ (1 / 3))
Cells(i, 1) = a(i)
Next i
For i = 1 To n
q(i) = a(i)
Cells(i, 2) = q(i)
Next i
For i = 1 To n Step 2
p = p * q(i)
Next i
Cells(1, 4) = p
For i = 2 To n Step 2
s = s + q(i)
Next i
Cells(1, 3) = s
End Sub

Private Sub CommandButton1_Click()
Dim a#(), i&, s#, p#, m#
Randomize
m = InputBox("m", , 9.1)
p = 1
ReDim a(1 To Int(m ^ 3))
For i = 1 To UBound(a)
    a(i) = i ^ (1 / 3)
    If i Mod 2 Then p = p * a(i) Else s = s + a(i)
Next i
[A1].Resize(UBound(a)) = Application.Transpose(a)
[B1:C1] = Array("произведение", p)
[B2:C2] = Array("сумма", s)
End Sub