Imports System

Public Module Module1

    Public Sub Main()

        Const listlength as integer =10

        Dim listitem(listlength) as string

        listitem = {"I","H","G","F","E","D","C","B","A","J"}

        console.writeline("Enter the item to find:")

        Dim searchedfor as string = console.readline()

        DIm found as boolean = false

        Dim position as integer = 0

        while found = false and position <= listlength -1 

            If listitem(position) = searchedfor then

                found = true

            else

                position += 1

            end if

            End while

        If found = true then

            console.writeline("Item found at " & position)

        else

            console.writeline("Item not found in list")

        ENd if

    End Sub

End Module