Imports System
Imports System.Collections

Public Class Test
	Public Shared Sub Main()
		Dim Data As New SortedList(StringComparer.OrdinalIgnoreCase)
Data.Add("AB", 48)
Data.Add("AC", 48)
Data.Add("A-D", 48)
Data.Add("A-", 48)
for each item as String in Data.Keys
   Console.WriteLine(item)
   Next
	End Sub
End Class