VBA Scripting.Dictionary

This how to use VBA Scripting.Dictionary

Dim BioSolveParameterFieldList As Scripting.Dictionary
Set ParameterFieldList = New Scripting.Dictionary
ParameterFieldList.Add "Param1", "F5"
ParameterFieldList.Add "Param2", "F6"

ParameterItems = ParameterFieldList.Items
ParameterKeys = ParameterFieldList.Keys

For i = 0 To BioSolveParameterFieldList.Count - 1
MsgBox (ParameterItems(i)) & " " & ParameterKeys(i)
MsgBox ParameterFieldList("MyKey")
Next



Sub DictExample1()
Dim dict As Dictionary
Dim v As Variant
    'Create the dictionary         
    Set dict = New Dictionary
   'Add some (key, value) pairs
    dict.Add "John", 34
    dict.Add "Jane", 42
    dict.Add "Ted", 402
    'How many items do we have?
    Debug.Print "Number of items stored: " & dict.Count
    'We can retrieve an item based on the key
    Debug.Print "Ted is " & dict.Item("Ted") & " years old"

   'We can test whether an item exists
    Debug.Print "We have Jane's age: " & dict.Exists("Jane")
    Debug.Print "We have Zak's age " & dict.Exists("Zak")
    'We can update a value by replacing it
   dict.Item("Ted") = dict.Item("Ted") / 10
    Debug.Print "Ted's real age is: " & dict.Item("Ted")
   'We can add more items
    dict.Add "Carla", 23
   'And we can iterate through the complete dictionary
    For Each v In dict.Keys
        Debug.Print "Name: " & v & "Age: "; dict.Item(v)
    Next
End Sub