Imports System

Imports System.Collections.Generic

Public Module Module1

    Public Sub Main()

        Dim dict As Dictionary(Of String, Integer) = New Dictionary(Of String, Integer)

​

        dict.Add("First Item", 0)

        dict.Add("Second Item", 1)

        dict.Add("Third Item", 2)

​

        Console.Write("Key: ")

        Dim key As String = Console.ReadLine()

​

        If dict.ContainsKey(key) Then

            Console.Write("The respective key's value is: ")

            Console.WriteLine(dict.Item(key))

        Else

            Console.WriteLine("The given key does not exist within the Dictionary")

        End If

    End Sub

End Module