Module Module1
Sub Main()
Dim dic As New Dictionary(Of String, Integer)
dic.Add("vb.net", 9)
dic.Add("java", 6)
dic.Add("php", 7)
dic.Add("python", 3)
dic.Add("c#", 4)
Dim keys As List(Of String) = dic.Keys.ToList
keys.Sort()
For Each s As String In keys
Console.WriteLine("{0} : {1}", s, dic.Item(s))
Next
End Sub
End Module
' run:
'
' c# : 4
' java: 6
' php: 7
' python: 3
' vb.net : 9