Visual Basic - De uitkomst klopt, behalve 1 regel. Wie kan helpen ? (Opgelost)

Sub Main()

    Dim zipcodes() As String = {"1000", "Brussel", "2000", "Antwerpen", "3000", "Leuven", "8000", "Brugge", "9000", "Gent"}
    Dim zipcodesCount As Integer = 5
    Dim searchValues() As String = {"0500", "1000", "2000", "3000", "4000", "8000", "9000", "9500"}

    For searchValueIndex = 0 To 7
        Dim searchValue As String = searchValues(searchValueIndex)
        Dim index As Integer
        Dim found As Boolean = False

        index = Array.BinarySearch(zipcodes, searchValue)

        If index > -1 Then found = True
        
        index = 0
        Do
            If searchValue = zipcodes(index * 2) Then
                found = True : index = index * 2
            Else
                index += 1
            End If
        Loop Until index = zipcodesCount Or found

        If found Then
            Console.WriteLine(searchValue & " is zipcode of " & zipcodes(index + 1))   Else
            Console.WriteLine(searchValue & " not found")
        End If
    Next
        Console.ReadLine()
End Sub

Sub Main()
 
    Dim zipcodes() As String = {"1000", "Brussel", "2000", "Antwerpen", "3000", "Leuven", "8000", "Brugge", "9000", "Gent"}
    Dim zipcodesCount As Integer = 5
    Dim searchValues() As String = {"0500", "1000", "2000", "3000", "4000", "8000", "9000", "9500"}
 
    For searchValueIndex = 0 To 7
        Dim searchValue As String = searchValues(searchValueIndex)
        Dim index As Integer
        Dim found As Boolean = False
 
        index = Array.BinarySearch(zipcodes, searchValue)
 
        If index > -1 Then found = True
 
        index = 0
        Do
            If searchValue = zipcodes(index * 2) Then
                found = True : index = index * 2
            Else
                index += 1
            End If
        Loop Until index = zipcodesCount Or found
 
        If found Then
            Console.WriteLine(searchValue & " is zipcode of " & zipcodes(index + 1))   Else
            Console.WriteLine(searchValue & " not found")
        End If
    Next
        Console.ReadLine()
End Sub

Dim dic as new Dictionary(Of String, String) From {
 {"1000", "Brussel"},
 {"2000", "Antwerpen"},
 {"3000", "Leuven"},
 {"8000", "Brugge"},
 {"9000", "Gent"}
}

Dim searchValues() As String = {"0500", "1000", "2000", "3000", "4000", "8000", "9000", "9500"}

For Each searchValue as String in searchValues()
 If dic.containsKey(searchValue) Then
  Console.WriteLine(searchValue & " is the zipcode of " & dic(searchValue))
 Else
  Console.WriteLine(searchValue & " not found"
 End If
Next

Dim dic as new Dictionary(Of String, String) From {
 {"1000", "Brussel"},
 {"2000", "Antwerpen"},
 {"3000", "Leuven"},
 {"8000", "Brugge"},
 {"9000", "Gent"}
}
 
Dim searchValues() As String = {"0500", "1000", "2000", "3000", "4000", "8000", "9000", "9500"}
 
For Each searchValue as String in searchValues()
 If dic.containsKey(searchValue) Then
  Console.WriteLine(searchValue & " is the zipcode of " & dic(searchValue))
 Else
  Console.WriteLine(searchValue & " not found"
 End If
Next