Imports System

'Imports Microsoft.VisualBasic

Imports System.Collections.Genericeneric

​

​

Public Module Module1

    Public Sub Main()

        Dim lstWords as New List(Of String)()

        lstWords.Add("Apple")

        lstWords.Add("Banana")

        lstWords.Add("Cherry")

        lstWords.Add("Dragon Fruit")

        lstWords.Add("Elderberry")

        lstWords.Add("Fig")

        lstWords.Add("Grape Fruit")

        lstWords.Add("Honeydew")

        lstWords.Add("Ita Palm")

        lstWords.Add("Jujube")

        Dim blnWordFound

        Dim blnWordtoFind

        Dim intMinIndex = 0

        Dim intMaxIndex = lstWords.Count()-1

        Dim strWordtoFind = Console.ReadLine()

        Dim intIndex

​

        DO WHILE blnWordFound = False AND intMinIndex <+ intMaxIndex

        Loop

            intIndex = (intMinIndex + intMaxIndex) / 2

            Console.WriteLine( "Inspecting index " & intIndex )

            IF strWordtoFind = lstWords( intIndex ) Then

                Console.WriteLine( strWordtoFind & " is word no " & intIndex + 1 & " in the list" )

                blnWordtoFind = True

            End If

            ELSEIF strWordtoFind 

​

    end else if

    End Sub

End Module