CATIA VBA... Chamfer :error

[AVIS0202]

Hi,

Im developing a model here i want to apply chamfer so i used the following code for chamfer

Dim reference9 As Reference
Set reference9 = part1.CreateReferenceFromBRepName("REdgeEdgeFaceBrpPad.1;0BrpSketch.1;3)));None);Cf11));FaceBrpPad.1;2);None);Cf11));NoneLimits1);Limits2));Cf11));WithTemporaryBody;WithoutBuildError;WithSelectingFeatureSupport;MFBRepVersion_CXR15)", trim1)


_________________________________________________________________________________________________
chamfer1.AddElementToChamfer reference9

chamfer1.Mode = catTwoLengthChamfer

chamfer1.Propagation = catTangencyChamfer

chamfer1.Orientation = catNoReverseChamfer

Dim parameters3 'As parameters
Set parameters3 = part1.parameters

' On Error Resume Next

Dim length6 As Length
[highlight #FCE94F]Set length6 = parameters3.Item("part1\body1\Chamfer.1\ChamferRibbon.1\Length6")[/highlight] '

length6.Value = 0.5

part1.Update
_____________________________________________________________________________________________________________________________________

The error im getting in the[highlight #FCE94F] yellow[/highlight] highlighted line
Run-time error '-2147467259 (800004005)';
the method item failed

Could some one help me out of this please....