This code is trying to establish a new collection consisting of employee names and numbers. Assoc is a class. What statement is missing from the code?

Dim Associates As Collection, Assoc As CAssoc, i As Byte
For i = 1 To 200
    Set Assoc = New CAssoc
    Assoc.Name = Cells(i,1)
    Assoc.Number = Cells(i,2)
    Associates.Add Assoc
Next i