......

    Dim productDocument1 As productDocument
    Set productDocument1 = CATIA.ActiveDocument
    
    Dim product1 As Product
    Set product1 = productDocument1.Product
    
    Dim products1 As Products
    Set products1 = product1.Products
    
    Dim product2 As Product
    Set product2 = products1.Item("Skelett.1")
    
    Dim publications1 As Publications
    Set publications1 = product2.Publications
    
    Dim publication1 As Publication
    Set publication1 = publications1.Item("Skizze.1")
    
    Dim reference2 As Reference
    Set reference2 = publication1.Valuation
       
    Set documents1 = CATIA.Documents
    
    Set partDocument1 = documents1.Item("Part2.CATPart")
    
    Set part1 = partDocument1.Part
    
    Dim bodies1 As Bodies
    Set bodies1 = part1.Bodies
    
    Dim body1 As Body
    Set body1 = bodies1.Item("Gehäuse_Unterteil")
    
    part1.InWorkObject = body1
    
    Dim shapeFactory1 As ShapeFactory
    Set shapeFactory1 = part1.ShapeFactory
    
    Set reference1 = part1.CreateReferenceFromName("")
    
    Dim pocket1 As Pocket
    Set pocket1 = shapeFactory1.AddNewPocketFromRef(reference1, 20#)
    
    pocket1.ReverseInnerSide

    
    pocket1.SetProfileElement reference2

......