Sub CATMain()

Dim partDocument1 As PartDocument
Set partDocument1 = CATIA.ActiveDocument

Dim part1 As Part
Set part1 = partDocument1.Part

Dim shapeFactory1 As ShapeFactory
Set shapeFactory1 = part1.ShapeFactory

Dim reference1 As Reference
Set reference1 = part1.CreateReferenceFromName("")

Dim pocket1 As Pocket
Set pocket1 = shapeFactory1.AddNewPocketFromRef(reference1, 250#)

Dim limit1 As Limit
Set limit1 = pocket1.FirstLimit

limit1.LimitMode = catUpToSurfaceLimit

Dim bodies1 As Bodies
Set bodies1 = part1.Bodies

Dim body1 As Body
Set body1 = bodies1.Item("Hauptkörper")

Dim shapes1 As Shapes
Set shapes1 = body1.Shapes

Dim pad1 As Pad
Set pad1 = shapes1.Item("Block.1")

Dim reference2 As Reference
Set reference2 = part1.CreateReferenceFromBRepName("RSur:(Face:(Brp:(Pad.1;0:(Brp:(Sketch.1;6)));None:();Cf9:());WithTemporaryBody;WithoutBuildError;WithSelectingFeatureSupport;MFBRepVersion_CXR14)", pad1)

limit1.LimitingElement = reference2

Dim parameters1 As Parameters
Set parameters1 = part1.Parameters

Dim length1 As Length
Set length1 = parameters1.Item("Testklotz\Hauptkörper\Tasche.1\Begrenzung1\OffsetFromSurface")

length1.Value = 15#

Dim sketches1 As Sketches
Set sketches1 = body1.Sketches

Dim sketch1 As Sketch
Set sketch1 = sketches1.Item("Skizze.2")

Dim reference3 As Reference
Set reference3 = part1.CreateReferenceFromObject(sketch1)

pocket1.SetProfileElement reference3

part1.Update

End Sub