Передать значения из двумерного в одномерный массив - VB

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

Здравствуйте. Такая задача. Нужно передать значения из двумерного массива, который заполнен строками, в одномерный. Я ищу в двумерном массиве (в первом его столбце) значение которое совпадает с "зяблик", там где в первом столбце "зяблик", в следующем столбце нужное мне значение "птица", номер строки (массива) естественно совпадает. Мне нужно занести значения или хотя бы все номера строк второго столбца, там где в первом "зяблик" в одномерный массив. Как это сделать? Заранее огромнейшее спасибо! P. S. Я не умный. Думал в этом напрвлении. Задача мне кажется очень простой, но ничего не выходит у меня.

For i=1 To 14
If a(i,1)="зяблик" Then a(i,2) 'и из этого столбца передать значения или номера строк в одномерный массив
Next i

Решение задачи: «Передать значения из двумерного в одномерный массив»

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

                            Dim b() As String, L As Long, n As Long, i As Long
n = UBound(a, 1)
L = 0
For i = LBound(a, 1) To n
    If a(i, 1) = "зяблик" Then
        ReDim Preserve b(0 To L)
        b(L) = a(i, 2)
        L = L + 1
    End If
Next
MsgBox Join(b, vbCrLf)
                        