VBA MS Access 2010 Как вызвать подпрограмму объекта?

Попробуйте вызвать эту строку с помощью:

User.addProduct Product, 0, True

or

Call User.addProduct(Product, 0, True)

Удаление ключевого слова () или использование ключевого слова Call должно помочь вам.

Я не уверен, что это то, что вы хотите сделать, но если он добавляет экземпляры класса в коллекцию, я предлагаю что-то вроде этого:

Sub Main_sub()

dim colProduct as Collection 
dim cProduct as clsProduct
dim asFoo as integer    
dim Mutual as boolean


set colProduct = new collection
set cProduct = new clsproduct

asFoo = ? 'Define
Mutual = ? 'Define

'if the AddProduct function resides in the clsProduct class: 
set cProduct = cproduct.AddProduct(cProduct, asFoo, Mutual)
colProduct.add cProduct

set cProduct = nothing
set colProduct = nothing

end sub

И для частных свойств класса продукта Projectmanager, VIP1, VIP2, VIP1A, VIP2A

Public function addProduct(cProduct as clsProduct, AsFoo As Integer, Optional Mutual As Boolean) as cProduct

            If (Mutual) Then 
                Select Case AsFoo 
                Case 0 
                    cProduct.Projectmanager = Me 
                Case 1 
                    cProduct.VIP1 = Me 
                Case 2 
                    cProduct.VIP2 = Me 
                Case 11 
                    cProduct.VIP1A = Me 
                Case 22 
                    cProduct.VIP2A = Me 
                End Select 
            End If
set addProduct = cProduct
End Sub 

Вы объявляете свойства в модуле класса следующим образом:

Private pVIP1 as <Type>

И геттеры/сеттеры:

Public Property Get VIP1() As <Type>
    VIP1 = pVIP1
End Property

Public Property Let VIP1(tVIP1 As <Type>)
    pVIP1 = tVIP1
End Property

Если тип является объектом, вам нужно использовать SET вместо LET.

Public Property SET VIP1(tVIP1 As <Type>)
    SET pVIP1 = tVIP1
End Property

Может быть, я неправильно понял ваши намерения, потому что не вижу смысла добавлять Меня к каждому из дел. Но это было лучшее, что я мог придумать.