XL 2010 Textbox format €[RESOLU]

TextBox10 = Format(TextBox10, "#,##0.00€")

Private Sub ComboBox4_Change()
With Me.CBx_4
i = .ListIndex
      Me.TxtB_6 = .List(i, 1) 'gestion du TextBox 6 ---> 23 Caratères
      Me.TxtB_10 = Format(CCur(.List(i, 2)), "### ##0.00€") '---> Cette Ligne 52 caractères
End With
End Sub

Private Sub UserForm_Initialize()'
With Me
     .CBx_4.List = Range("B6:D25").Value 'on charge le Combobox'
End With
End Sub

Private Sub ComboBox4_AfterUpdate()
TextBox6.Value = Application.WorksheetFunction.VLookup(CDbl(ComboBox4), Sheets("Feuil1").Range("B6:D25"), 2, 0) 'Ici 111 Caractères
Sheets("Feuil1").Range("A1") = Format(Application.WorksheetFunction.VLookup(CDbl(ComboBox4), Sheets("Feuil1").Range("B6:D25"), 3, 0), "## ##0,00€")
'************************ci dessous ? Cette Ligne 131 caractères
TextBox10.Value = Format(Application.WorksheetFunction.VLookup(CDbl(ComboBox4), Sheets("Feuil1").Range("B6:D25"), 3, 0), "# ##0,00€") '--->Ici
'************************
End Sub