Option Strict On

​

Imports System

Imports System.Collections.Generic

Imports System.Linq

Public Module Module1

​

    Public Sub Main()

        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)

    End Sub

End Module

​