title: Infinite amount of Collection VBA
body: <p>Here is the screen of my problem which is infinite amount of collections.
  I want the collection be added to object property just once. Not like this:</p>
  
  <p><a href="http://postimg.org/image/o6da95j0f/" rel="nofollow">http://postimg.org/image/o6da95j0f/</a>
  (screen showing the problem with "watch" of collection in VBA</p>
  
  <pre><code>    Public Sub testCollections()
  
  Dim index As Long
  index = 1
      Dim OJsonElement As JsonElement
      Dim newColl As New Collection
      Dim str As String
      Call addColl(OJsonElement, newColl)
  
  
      For Each OJsonElement In newColl
      Debug.Print "THE NAME IS:" &amp; OJsonElement.name
      Next OJsonElement
  
  End Sub
  
  
  Function addColl(obj1 As JsonElement, nextCollection As Collection)
  Dim i As Long
  Set nextCollection = New Collection
  Set obj1 = New JsonElement
  Set obj1.valueCollection = nextCollection
  obj1.name = "CityName"
  obj1.value = "type"
  nextCollection.Add obj1
  
  
  'obj1.ValueType = nextCollection
  
  
  'nextCollection.Add nextCollection
  
  
  
  End Function
  
  Class:
  Public name As String
  Public nameCollection As Collection
  Public value As Variant
  Public ValueType As String
  Public valueCollection As Collection
  </code></pre>