Dim dic As New Dictionary(Of Integer, String)
  dic.Add(4, "vier")
  dic.Add(2, "zwei")
  dic.Add(1, "eins")
  dic.Add(3, "drei")
  dic.Add(0, "null")
 
  Console.WriteLine("Dictionary-Elemente: Ansteigend sortiert nach Schlüsseln (" & _
    "numerisch)")
  For Each kvp As KeyValuePair(Of Integer, String) In _
     dic.OrderBy(Of Integer)(Function(entry As KeyValuePair(Of Integer, _
     String)) entry.Key)
 
     Console.WriteLine(CStr(kvp.Key) & " - " & kvp.Value)
  Next kvp
 
  Console.WriteLine("Dictionary-Elemente: Fallend sortiert nach Werten (" & _
    "alphabetisch)")
  For Each kvp As KeyValuePair(Of Integer, String) In _
      dic.OrderByDescending(Function(entry) entry.Value)
 
     Console.WriteLine(CStr(kvp.Key) & " - " & kvp.Value)
  Next kvp