Visual basic 0.6 : ricerca binaria

Ricerca Binaria?!?
Ho bisogno che qualcuno me la spieghi devo fare dei compiti per domani.. Devo creare un tasto sul form di Visual Basic per cercare in un vettore già da me ordinato un alunno che inserisco io, e da qui mi si visualizzerà il suo voto.

Dim Alunni(1 To 30) As String
Dim Assenze(1 To 30) As Byte
Dim Q As Byte
Private Sub cmdins_Click()
Q = Val(InputBox("Quanti alunni vuoi inserire?"))
Do While Q < 10 Or Q >= 30
MsgBox "Inserisci almeno 10 alunni, ma non più di 30"
Q = Val(InputBox("Quanti alunni vuoi inserire?"))
Loop
For I = 1 To Q
Alunni(I) = InputBox("Inserisci nominativo numero :" & I)
Assenze(I) = Val(InputBox("Inserisci giorni di assenza"))
Next I
End Sub

Private Sub cmdo_Click()
Dim K As Byte
Dim A As String
For I = 1 To Q - 1
For N = I To Q

If Assenze(I) < Assenze(N) Then
K = Assenze(N)
Assenze(N) = Assenze(I)
Assenze(I) = K
A = Alunni(N)
Alunni(N) = Alunni(I)
Alunni(I) = A
End If
Next N
Next I
For I = 1 To 10
'questo procedimento vale solo se nella flex sono presenti 10x2 celle
'flxo.Row = I
'flxo.Col = 0
'flxo.Text = Alunni(I)
'flxo.Col = 1
'flxo.Text = Assenze(I)
flxo.AddItem Alunni(I) & vbTab & Assenze(I)
Next I
'Con l'additem le celle nella flex si aggiungono automaticamente
End Sub

'Private Sub cmdc_Click()
'QUI DOVREI FARE LA RICERCA BINARIA
'End Sub

Private Sub Form_Load()
flxo.Row = 0
flxo.Col = 0
flxo.Text = "Nominativo"
flxo.Col = 1
flxo.Text = "Assenze"
End Sub