XL 2010 Afficher dans TextBox en Euro

Private Sub CommandButton1_Click()'bouton nouveau

    Dim L As Integer

    If MsgBox("Confirmez-vous l'insertion de ce nouveau contact ?", vbYesNo, "Demande de confirmation d'ajout") = vbYes Then
        L = Sheets("Adhérents").Range("a65536").End(xlUp).Row + 1    'Pour placer le nouvel enregistrement à la première ligne de tableau non vide
        Range("A" & L).Value = ComboBox1
        Range("B" & L).Value = TextBox1
        Range("C" & L).Value = TextBox2
        If TextBox3 <> "" Then Range("D" & L).Value = CDbl(TextBox3)
        If TextBox4 <> "" Then Range("E" & L).Value = CDbl(TextBox4)
        Range("D:E").Rows(L).NumberFormat = "#0.00€"
    End If
End Sub
Private Sub CommandButton2_Click() ' bouton modifier
    Dim Ligne&, i%
    If Me.ComboBox1.ListIndex = -1 Then Exit Sub
       If MsgBox("Confirmez-vous la modification de ce contact ?", vbYesNo, "Demande de confirmation de modification") = vbYes Then
         Ligne = Me.ComboBox1.ListIndex + 2
        Range("B" & i + 1).Value = TextBox1
        Range("C" & i + 1).Value = TextBox2
        If TextBox3 <> "" Then Range("D" & i + 1).Value = CDbl(TextBox3)
        If TextBox4 <> "" Then Range("E" & i + 1).Value = CDbl(TextBox4)
       End If
End Sub