Проблема с публикацией выделеной поверхности

[m-shok]

Вобщем необходимо опубликовать выделенную поверхность.

arr(0) = "Face"
Dim status As String
Dim b As Face
status = sel.SelectElement2(arr, "Выделите.....", True)
Set b = sel.Item2(1).Value

Dim pbs As Publications
Set pbs = product1.Publications
Dim pb As Publication
Set pb = pbs.Add("Sur")
pbs.SetDirect "Sur", b

На это выдается:

Run-time error -2147467262
Сбой метода SetDirect

В чем я неправ?

[Artem]

Dim partDocument1
Set partDocument1 = CATIA.ActiveDocument
Dim product1 As Product
Set product1 = partDocument1.Product
Dim sel
Set sel = partDocument1.Selection
Dim arr() As Variant
ReDim arr(0)
arr(0) = "Face"
Dim status As String
status = sel.SelectElement2(arr, "Выделите.....", False)
Dim reference3 As Reference
Set reference3 = product1.CreateReferenceFromName(product1.PartNumber + "/!" + sel.Item(1).Value.name)

[m-shok]

Спасибо:)