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

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

 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