Dim myDictionary As New Dictionary(Of String, String)
myDictionary.Add("apple", "fruit")
myDictionary.Add("car", "vehicle")
myDictionary.Add("sun", "celestial body")
Dim keyToSearch As String = "car"
Dim value As String = myDictionary(keyToSearch)
' Now 'value' contains "vehicle"...