Dim sample,num
Set sample = CreateObject("${COLIBRARY_PATH}.${COCLASS_NAME}") 
num = sample.Add(1,3)
msgbox num