Реализовать поиск числа в массиве методом Фибоначчи

Dim n As Integer, x(25) As Integer
Dim f(25) As Integer
 
 
Private Sub Command1_Click()
Open "C:\massiv.txt" For Input As #1
i = 0
While Not EOF(1)
i = i + 1
Input #1, x(i)
Picture1.Print x(i)
Wend
Close #1
End Sub
 
Private Sub Command2_Click()
n = 25
For i = 1 To n - 1
Min = x(i)
k = i
For j = i + 1 To n
If x(j) < Min Then
Min = x(j)
k = j
End If
Next j
x(k) = x(i)
x(i) = Min
 
Next i
For i = 1 To n
Picture2.Print x(i)
Next i
End Sub
 
Private Sub Command3_Click()
Picture3.Cls
f(1) = 1
f(2) = 2
For i = 2 To 10
f(i + 1) = f(i - 1) + f(i)                  // здесь, как я понял, формируется массив из чисел Фиб-и
Next i
K = Val(Text1.Text)                     // вводится искомое значение K
inach = 1
If K >= x(1) And K <= x(n) Then          // проверяется, находится ли искомый элемент в массиве X
While q <> 1                                     // начинается цикл
nomfib = nomfib + 1           //с этого момента не понимаю, что такое nomfib, зачем эти формулы(в методе вроде       
ikon = ikon + f(nomfib)       // разбирался, но понять до конца не смог)?
If ikon > n Then ikon = n
If K = x(inach) Or K = x(ikon) Then      //здесь вроде понятно, если искомое число нах-ся на концах массива X,
q = 1                                                  // то печатаем порядковый номер(либо первый, либо последний)
Picture3.Print "Поиск успешный"
If K = x(inach) Then
Picture3.Print "Искомое число стоит в позиции", inach
Else
Picture3.Print "Искомое число стоит в позиции", ikon
End If
Else
If K < x(ikon) And K > x(inach) Then                             //вот это условие  непонятно
If ikon = inach + 1 Then
q = 1
Picture3.Print "Введенного числа среди данных нет"
End If
nomfib = 0             // вот эти присваивания тоже не понял
ikon = inach
Else
inach = ikon
End If
End If
Wend
Else
Picture3.Print "Введенного числа среди данных нет"     // это, как я понял, происходит, если не выполнено условие
End If                                                                          // перед While
End Sub