Option ExplicitDim words(0 To 100) As StringDim upbound As IntegerDim lobound As IntegerDim numrec As IntegerDim curmid As IntegerDim currec As IntegerDim counta As IntegerDim filenum As IntegerPrivate Sub cmdSearch_Click()currec = 0txtSearch.Text = UCase(txtSearch.Text)    Do While upbound <> lobound \'Make sure the loop will end if no result is found    \'Check to see it the word is at the middle position    If words(curmid) = txtSearch.Text Then currec = curmid: Exit Do    \'Check to see if the word falls before or after the middle of the list    If words(curmid) > txtSearch.Text Then      upbound = curmid    ElseIf words(curmid) < txtSearch Then      lobound = curmid    End If    \'set where the new middle is    curmid = (upbound - (lobound - 1)) \\ 2 + lobound    If lobound = curmid Or upbound = 1 Then Exit Do  Loop    If currec = 0 Then    MsgBox "Record Not Found"  Else    MsgBox txtSearch.Text & " found in" & vbCrLf & "Position: " & currec  End If  numrec = 100  lobound = 1  upbound = 100  curmid = (upbound - (lobound - 1)) \\ 2End SubPrivate Sub Form_Load()  filenum = FreeFile  Open App.Path & "\\sorted.txt" For Input As filenum  For counta = 1 To 100    Input #filenum, words(counta)    List1.AddItem words(counta)  Next counta  MsgBox "Words Loaded"  numrec = 100  lobound = 0  upbound = 100  curmid = (upbound - (lobound - 1)) \\ 2End Sub

\' Returns the position that the item was found at or -1 if not found.Function binarySearch(Table, Target, First As Integer, Last As Integer) As Integer  Dim Middle As Integer  While (First <= Last)    Middle = (First + Last) / 2    If Table(Middle) = Target Then      binarySearch = Middle      Exit Function    Else        If Table(Middle) < Target Then            First = Middle + 1        Else            Last = Middle - 1        End If    End If  Wend  binarySearch = -1End Function