Imports System

Imports System.Linq

Imports System.Collections.Generic

​

Public Module Module1

​

    Public Sub Main()

        Dim dictionary As IDictionary(Of String, String) = New Dictionary(Of String, String)

        dictionary.Add("test", "1")

        dictionary.Add("Prod", "2")

        dictionary = dictionary.ToDictionary(Function(x) x.Key, Function(x) x.Value, StringComparer.OrdinalIgnoreCase)

        Console.WriteLine(dictionary("Test"))

    End Sub

End Module

​