Imports System Imports System.Collections Class Test Shared Sub Main() Dim myTable As New Hashtable() myTable.Item("A") = 1 myTable.Item("B") = 44 myTable.Item("C") = 43 myTable.Item("D") = 33 myTable.Item("E") = 39 Dim Country As String = "C" Dim Code As Integer = myTable.Item(Country) Console.WriteLine(Code) End Sub End Class