Imports System
Imports System.Collections.Generic

Class Sample
  Shared Sub Main()
    ' 大文字小文字の違いを無視するSortedSet
    Dim caseInsensitiveSet As New SortedSet(Of String)(StringComparer.OrdinalIgnoreCase) From {
      "Alice", "Bob", "Charlie", "Dave", "Eve"
    }

    ' 文字列"ALICE"が含まれているかどうか調べる
    ' 同時にSortedSetに格納されている実際の綴りも取得する
    Dim alice As String = "ALICE"

    If caseInsensitiveSet.TryGetValue(alice, alice) Then
      Console.WriteLine(alice)
    End If

    ' 文字列"cHArLIe"が含まれているかどうか調べる
    ' 同時にSortedSetに格納されている実際の綴りも取得する
    Dim charlie As String = "cHArLIe"

    If caseInsensitiveSet.TryGetValue(charlie, charlie) Then
      Console.WriteLine(charlie)
    End If
  End Sub
End Class

Alice
Charlie