Dim numbers() As Integer = {1, 4, 9, 16, 25, 36, 49, 64, 81, 100}
searchFor = Console.ReadLine()
Console.WriteLine("Number: " + searchFor.ToString + " found at index " + (BinSearch(numbers, searchFor)).ToString)
Public Function BinSearch(usedList, searchFor) As Integer
Dim upperBound As Integer = usedList.length - 1
Dim lowerBound As Integer = 0
if upperBound < lowerBound
If usedList(midPoint) < searchFor Then
lowerBound = midPoint + 1
midPoint = lowerBound + (upperBound - lowerBound) / 2
If usedList(midPoint) > searchFor Then
upperBound = midPoint - 1
midPoint = lowerBound + (upperBound - lowerBound) / 2
If usedList(midPoint) = searchFor Then