Excel vba：类子：vba上的参数数量错误或属性分配无效

我有一个类State和其中包含一个Scripting.Dictionary作为参数的一些子。但是，当我尝试在那儿传递字典时，出现wrong number of arguments or invalid property assignment错误。我不知道怎么了。

'Sub insite State class
Sub addSecondItems(itemsDict As Object)
    MsgBox ("start addSecondItems")
End Sub

Sub test()
Dim stateCopy As State
Set stateCopy = New State
...
Dim dict1 As Object
Set dict1 = CreateObject("Scripting.Dictionary")
stateCopy.addSecondItems (dict1)  'error here
...
End Sub

同时

Sub testPetDict()

    Dim petDict As Object
    Set petDict = CreateObject("Scripting.Dictionary")
    Call readPetDict(petDict)

End Sub

Sub readPetDict(petDict As Object)
        Dim year As Integer
        For year = 2014 To 2017
            MsgBox (year & ". " & petDict(year))
        Next
End Sub

工作正常。

这可能是什么问题，为什么第二种情况有效而第一种失败？