title: Change value of an item in a collection in a dictionary
body: <p>I'm trying to create a dictionary which has a collection for every key. The reason for this is that I want to retrieve several values from the same key later on. In this example I want to have the total value (val) of a unique key as well as the number of occurrences (n):</p>
  
  <pre><code>sub update()
  Dim dict As Dictionary
  Dim coll As Collection
  Set dict = New Dictionary
  Set coll = New Collection
  
  coll.Add 100, "val"
  coll.Add 3, "n"
  dict.Add "coll", coll
  
  Debug.Print dict.item("coll")("val")
  Debug.Print dict.item("coll")("n")
  </code></pre>
  
  <p>This works fine so far, the problem occurs when I try to update the value in the collection (object doesn't support this):</p>
  
  <pre><code>dict.item("coll")("val") = dict.item("coll")("val") + 100
  </code></pre>
  
  <p>What I tried:</p>
  
  <blockquote>
    <p>If I use an array instead of the collection, there is no error but the value doesn't change.
    It only works if I read out the collection to variables, change the value, create a new collection, remove the old from the dictionary and add the new collection.</p>
  </blockquote>
  
  <p>Is there any way to do it like my approach above in a single line? 
  I would also be happy for an alternative solution to the task.</p>