title: Errors adding items to a VBA/VB6 Collection
body: <p>I'm still learning VBA and I can't figure out wth I'm having so many problems with a Collections object.</p>
  
  <p>I have a function that adds custom objects (I created a very simple class to store some data) that does the typical "read data, create object representation, stick it into Collections" sort of stuff.</p>
  
  <p>If I try to add a "key" to the bag.add call I get a "Compile error. Expected:=" message.</p>
  
  <p>If I don't it appears to have worked then when I run the program it says "Compile Error. Argument not optional" and highlights the "getRevColumns = bag" line.</p>
  
  <p>I can't for the life of me figure out wth is going on! I suspect something wrong with how I initialized my bag?! PS: columnMap is the name of my custom class.</p>
  
  <pre><code>Function getRevColumns() As Collection
  
  Dim rng As Range
  Dim i As Integer
  Dim bag As Collection
  Dim opManCol As Integer, siebelCol As Integer
  Dim opManColName As String, siebelColName As String
  Dim itm As columnMap
  
  Set bag = New Collection
  Set rng = shSiebelMap.UsedRange.Columns(5)
  
  i = 1
  For i = 1 To rng.Rows.count
  
      If StrComp(UCase(rng.Cells(i).value), "Y") = 0 Then
  
          opManCol = rng.Rows(i).OffSet(0, -2).value
          opManColName = rng.Rows(i).OffSet(0, -4)
          siebelCol = rng.Rows(i).OffSet(0, -1).value
          siebelColName = rng.Rows(i).OffSet(0, -3)
  
          Set itm = New columnMap
          itm.opManColName = opManColName
          itm.opManColNumber = opManCol
          itm.siebelColName = siebelColName
          itm.siebelColNumber = siebelCol
  
          'WHY DOESN'T IT WORK!''
          bag.Add (itm)
  
          'MsgBox "opMan Col: " &amp; opManColName &amp; " : " &amp; opManCol &amp; ". Siebel Col: " &amp; siebelColName &amp; " : " &amp; siebelCol'
  
      End If
  
  Next i
  
  getRevColumns = bag
  
  End Function
  </code></pre>