Modifier des paramètres à partir d'une TextBox

Bonjour à tous,

Je souhaiterais modifier une longueur (qui se trouve déjà sous forme de paramétre du nom de "Oberrohrlaenge" dans mon CATPart) à partir de l'interface d'une macro.
Mais lorsque je rempli la textBox2 et que je clique sur le boutton "CommandButton4", le message d'erreur "automation error" s'affiche et la ligne de code "Set part1 = partDocument1.Part" est surlignée en jaune alors que dans la ligne précédente j'avais pourtant défini "partDocument1". De plus, ce code a été généré lorsque j'ai utilisé l'enregistreur de macros. Quelqu'un comprend l'erreur que j'ai fait ?
Je vous remercie d'avance pour votre aide.
Jonathan.
Ci-dessous le code:


Private Sub CommandButton4_Click()


If TextBox1.Value = "" And _
TextBox2.Value = "" And _
TextBox3.Value = "" And _
TextBox4.Value = "" Then
MsgBox "Es wurden keine neuen Parameter eingetragen"

Else

Dim partDocument1 As PartDocument
Set partDocument1 = CATIA.ActiveDocument

Dim part1 As Part
Set part1 = partDocument1.Part

Dim parameters1 As Parameters
Set parameters1 = part1.Parameters

Dim length1 As Length
Set length1 = parameters1.Item("Oberrohrlaenge")

length1.Value = "&TextBox2.Value 'paramètre=Textbox"

part1.Update 'actualiser

End If

End Sub

If TextBox1.Value = "" And _
TextBox2.Value = "" And _
TextBox3.Value = "" And _
TextBox4.Value = "" Then
MsgBox "Es wurden keine neuen Parameter eingetragen"

Else

Dim partDocument1 As PartDocument
Set partDocument1 = CATIA.ActiveDocument

Dim part1 As Part
Set part1 = partDocument1.Part

Dim parameters1 As Parameters
Set parameters1 = part1.Parameters

Dim length1 As Length
Set length1 = parameters1.Item("Oberrohrlaenge")

length1.Value = "&TextBox2.Value 'paramètre=Textbox"

part1.Update 'actualiser

End If

End Sub