Imports System.Collections.Generic
Dim managerNames As New Dictionary(Of String, String())
managerNames.Add("David", {"The Boss", "Head Honcho", "His Excellency"})
managerNames.Add("Michael", {"Pisant"})
Console.Write("Field1: ")
Dim field1 As String = Console.ReadLine()
Dim field2 As String = managerNames.FirstOrDefault(Function(kvp) Array.IndexOf(kvp.Value, field1) <> -1).Key
Console.WriteLine(field2)