运行时错误类型'13'不匹配

Question

我在工作中继承了旧的Excel-VBA模型。我正在运行这个程序来计算贷款组合的损失。该程序适用于最多500个贷款项目的贷款组合，但当我加载一个包含500多个项目的大型投资组合时，它开始抛出“运行时错误类型'13'不匹配”。

Public Sub generateLossDistribution()

....

    Dim i As Long, j As Long
    Dim p As portfolio
    ' Creates a new portfolio object and reads it
    **Set p = New portfolio**

错误消息在“**”代码行中出现。仅供参考，“投资组合”是用户定义的对象/类模块。由于代码适用于较少的贷款项目，这个错误可能是由于数组大小的增加（当更大的投资组合被加载时）？该投资组合每个贷款项目约有30个字段。数组大小是否有限制，我可以扩展？

由于我只是一个初学者并且模型代码太大而无法上传以使其有任何意义，因此非常模糊。“

由于