Mine

'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'			SØKING ETTER GITT VERDI        
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Private Sub btnKnapp_Click
	Dim første, siste, midten As Integer
	Dim merkeFlagg As Boolean
	Dim forespørsel As Integer = txtSøk.text 'Det vi leter etter
	
	første = tblTabell.GetLowerBound(0)
	siste = tblTabell.GetUpperBound(0)
	merkeFlagg = True
	
	Do While (merkeFlagg And første <= siste)
	
		midten = Cint((siste + første) / 2) 'Finner midten i tabellen
		
		If tblTabell(midten) = forespørsel Then 'Hvis du finner det du leter etter
			merkeFlagg = False
			'Gjør noe her
		End If
	
		If forespørsel < tblTabell(midten) Then
			siste = midten - 1
		End If
		
		If forespørsel > tblTabell(midten) Then
			siste = midten + 1
		End If
		
	Loop
End Sub