title: find max/min value in dictionary values in VBA
body: <p>I am using VBA to store key and value associated with the key into dictionary.</p>
  
  <pre><code>Sub Dict_Example()
  
  Set dict = CreateObject("Scripting.Dictionary")
  
  For i = 1 to 5
      dict.Add i, some number
  Next i
  </code></pre>
  
  <p>I would like to find the highest value and its associated key in <code>dict</code>.</p>
  
  <p>For example, if dict = {1: 5, 2: 10, 3: 6, 4: 11, 5: 3} where 1,2,3,4,5 are keys and 5, 10, 6, 11, 3 are values then it should return 4:11.</p>
  
  <p>How do I do this in VBA?</p>