Задание по VBA

[msHolmes]

Помогите, пожалуйста, решить какую - нибудь задачу,очень прошу мне сегодня сдавать надо( :

1)Даны два одномерных массива А(n) и B(n). Сформировать массив С из отрицательных элементов массива В и элементов массива А, значения которых меньше 8

2)Найти сумму квадратов и квадрат суммы элементов массива А

[Казанский]

Excel VBA

Sub msHolmes()
Dim A(), B(), C(), x, notFirst As Boolean
B = Array(1, -1, 2, 0, -4)
A = Array(3, 4, 5, 6, 7, 8, 9)
For Each x In B
    If x < 0 Then
        If notFirst Then
            ReDim Preserve C(UBound(C) + 1)
        Else
            ReDim C(0)
            notFirst = True
        End If
        C(UBound(C)) = x
    End If
Next
For Each x In A
    If x < 8 Then
        If notFirst Then
            ReDim Preserve C(UBound(C) + 1)
        Else
            ReDim C(0)
            notFirst = True
        End If
        C(UBound(C)) = x
    End If
Next
Debug.Print "Массив С: ";
For Each x In C: Debug.Print x;: Next
Debug.Print
Debug.Print "Сумма квадратов А: "; Application.SumProduct(A, A)
Debug.Print "Квадрат суммы А: "; Application.Sum(A) ^ 2
End Sub

[msHolmes]

Большое спасибо