Заполнить вектор индексами элементов вектора А размерности n, значения которых равны ключу поиска - VB

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

Программа работает, но выводит первй найденный индекс столько раз, сколь совпадений по ключу поиска она нашла, почему?

                    Листинг программы
                
 
                        
                          
                    
Private Sub Command1_Click()
Dim j As Byte, n As Byte, b() As Single, a() As Single, k As Single, r As Single, l As Single, f As Single
n = InputBox("Введите размерность вектора B")
ReDim b(1 To n)
Cls
Print
Print Spc(2); "Вектор B:"
 For j = 1 To n
 b(j) = InputBox("Введите значение b(" & j & ")")
 Print Spc(3); b(j);
 Next j
Print
Print
k = InputBox("Введите ключ поиска")
Print Spc(2); "k = " & k & ""
Print
f = 0
  For j = 1 To n
   If b(j) = k Then
   f = f + 1
   End If
  Next j
                If f > 0 Then
ReDim a(1 To f)
Print Spc(2); "Вектор, составленный из индексов элементов вектора B,"
Print Spc(2); "значения которых равны ключу поиска:"
  For j = 1 To n
    If b(j) = k Then
       For l = 1 To f
       a(l) = j
       Print Spc(3); a(l);
       Next l
    End If
  Next j
                Else
Print Spc(4); "В векторе B нет элементов, равных ключу поиска."
                End If
End Sub

Решение задачи: «Заполнить вектор индексами элементов вектора А размерности n, значения которых равны ключу поиска»

textual
                            Листинг программы 
                        
 
                        
                          
                    
 f=0
 Print Spc(3);
 For j = 1 To n
    If b(j) = k Then
       f=f+1
       a(f) = j
       Print  a(f);
    End If
  Next j