Как найти сумму четных отрицательных элементов массива - VB

Формулировка задачи:

Здравствуйте! Мне срочно надо сделать задание на допуск к экзамену. Вот оно

Дан массив целых чисел из n элементов, заполненный случайным образом числами из промежутка [-1000,1000]. Найти сумму четных отрицательных элементов.
Вывести индексы тех элементов, значения которых кратны 3 и 6.
Определить, есть ли пара соседних элементов с суммой, равной заданному числу.

Я что-то делал, но ничего не выходит

Dim b(50) As Double
Private Sub Command1_Click()
a = Text2
s = 0
Picture1.Cls
Picture2.Cls
Picture3.Cls
n = Text1
For i = 1 To Text3 - 1
av = Split(Text1, " ")
b(i) = Val(av(i))
If (b(i) + b(i + 1) = a) Then
y = "есть"
End If
If (b(i) + b(i + 1) <> a) Then
y = "нет"
End If
If (b(i) Mod 6) <> 0 Then
x = i
End If
If (b(i) Mod 2) < 0 Then
End If
s = s + b(i)
Picture3.Print x;
Next
Picture1.Print s;
Picture4.Print y;
End Sub

Помогите, пожалуйста! Срочно надо!

Почти так:

Dim b(50) As Double
Private Sub Command1_Click()
a = Text2
s = 0
y = 0
Picture1.Cls
Picture3.Cls
n = Text1
For i = 1 To n
b(i) = i + 1
If b(i) + b(i + 1) = a Then
y = y + 1
End If
If b(i) Mod 6 = 0 Then
x = i
Picture3.Print x
End If
If (b(i) Mod 2 = 0) And (b(i) < 0) Then
s = s + b(i)
End If
Next
If y = 0 Then
p = "нет таких пар"
End If
If y <> 0 Then
p = "есть такие пары"
End If
Picture4.Print p
Picture1.Print s
End Sub

Решение задачи: «Как найти сумму четных отрицательных элементов массива»

textual
                            Листинг программы 
                        

                            Private Sub Command1_Click()
Dim A() As Integer, n As Integer, i As Integer
Dim intVal As Integer, strInd As String, blnC As Boolean, lngSum As Long
    n = InputBox("Введите размер массива", "Ввод данных", 10)
    intVal = InputBox("Введите число", "Ввод данных", 100)
    ReDim A(1 To n)
    Randomize
    Cls
    For i = 1 To n
         A(i) = Int(Rnd * 2001 - 1000)
         Print A(i) & " ";  'Picture1.Print A(i);
         If A(i) < 0 And A(i) Mod 2 = 0 Then lngSum = lngSum + A(i)
         If A(i) Mod 3 = 0 And A(i) Mod 6 = 0 Then strInd = strInd & Str(i) & ",  "
         If i >=  2 Then If A(i) + A(i - 1) = intVal Then blnC = True
    Next
    MsgBox "Cуммa четных отрицательных элементов - " & lngSum & vbCrLf & _
           "Индексы тех элементов, значения которых кратны 3 и 6 : " & strInd & vbCrLf & _
           "Eсть ли пара соседних элементов с суммой, равной заданному числу? - " & IIf(blnC, "Есть", "Нет")
End Sub
                        