Структура поиск - VB

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

Дали задание сделал программу, но чето не фурычит задание: Разработать информационую технологию позволяющую заполнить одномнрный масив значениями индексов элемнентов масива M (произвольной размерности) значения которых отрицательны и превосходят величину b прога:

Private Sub Command1_Click()
Dim m As Integer, i As Integer, b As Integer, a() As Integer, c() As Integer
m = InputBox("Введите размерность")
ReDim a(m)
For i = 1 To m
a(i) = InputBox("Введите занчение a(" & i & ")элемента массива")
Next i
b = InputBox("Введите величину b")
flag = False
For i = 1 To m
If a(i) < 0 And a(i) > b Then
flag = True
a(i) = c(i)
Print c(i)
End If
If flag = False Then
MsgBox "элементов отрицательных и превосходящих велечину " & b & " нет"
End If
Print "Значение элементов матрицы А"
For i = 1 To m
Print
Next
End Sub

Решение задачи: «Структура поиск»

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

                            Private Sub Command1_Click()
Dim m As Integer, i As Integer, b As Integer, a() As Integer, c() As Integer
m = InputBox("Введите размерность")
ReDim a(m)
For i = 1 To m
a(i) = InputBox("Введите занчение a(" & i & ")элемента массива")
Next i
b = InputBox("Введите величину b")
flag = False
For i = 1 To m
If a(i) < 0 And a(i) > b Then
flag = True
t = i
Print i
End If
Next i
If flag = False Then
MsgBox "элементов отрицательных и превосходящих велечину " & b & " нет"
End If
Print "Значение элементов матрицы А"
For i = 1 To m
Print a(i)
Next i
End Sub
                        