Module Module1
Class Test
Private _dic
Public Sub New()
_dic = New Dictionary(Of String, Integer)
_dic.Add("VB.NET", 1)
_dic.Add("Java", 3)
_dic.Add("Python", 5)
_dic.Add("PHP", 9)
End Sub
Public Function GetValue(key As String) As Integer
Return _dic.Item(key)
End Function
End Class
Sub Main()
Dim o As New Test
Console.WriteLine(o.GetValue("PHP"))
End Sub
End Module
' run:
'
' 9