Dim codes() As String = {"AMS", "ATL", "CAN", "CDG", "CGK", "DEL", "DEN", "DFW", "DXB", "FRA", "HND", "ICN", "IST", "LAX", "LHR", "ORD", "PEK", "PVG", "SAR", "SIN"}
Dim airports() As String = {"Amsterdam Airport Schiphol", "Hartsfield–Jackson Atlanta International Airport", "Guangzhou Baiyun International Airport", "Paris-Charles de Gaulle Airport", "Soekarno-Hatta International Airport", "Indira Gandhi International Airport (Delhi)", "Denver International Airport", "Dallas/Fort Worth International Airport", "Dubai International Airport", "Frankfurt Airport", "Tokyo Haneda Airport", "Seoul Incheon International Airport", "Istanbul Atatürk Airport", "Los Angeles International Airport", "London Heathrow Airport", "O'Hare International Airport (Chicago)", "Beijing Capital International Airport", "Shanghai Pudong International Airport", "Hong Kong International Airport", "Singapore Changi Airport"}
dim found as boolean = "false"
console.WriteLine("Enter an airport code to search for")
dim myInput as string = console.ReadLine
dim counter as integer = 0
if myInput = codes(counter) then
console.writeline("The airport with code " & myInput & " is " & airports(counter))
loop until found = "true" or counter = 19
console.WriteLine("AIRPORT NOT FOUND")