Здравствуйте всем,
нужно передать в класс параметр типа Object. Ниже написан код

Private mPowerPointApp As Object
...

Set mPowerPointApp = CreateObject("Powerpoint.Application")
...

Dim evaluation As CEvaluation
Set evaluation = New CEvaluation

evaluation.Init (mPowerPointApp)

Сама реализация процедуры Init

Private pPowerPointApp As Object
...

Public Sub Init(ByRef powerPointApp As Object)

Set pPowerPointApp = powerPointApp

End Sub

Но всегда выдается ошибка object required. В чем может быть проблема?

Спасибо!