USF: Format Textbox avec point au lieu de la virgule

Private Sub CommandButton1_Click()
Dim valTxtBox As Double
    valTxtBox = CDbl(Replace(TextBox1, ".", ","))
    valTxtBox = valTxtBox + 0.2
    If valTxtBox > 1 Then valTxtBox = 1
    TextBox1 = Replace(valTxtBox, ",", ".")
End Sub

Private Sub CommandButton2_Click()
Dim valTxtBox As Double
    valTxtBox = CDbl(Replace(TextBox1, ".", ","))
    valTxtBox = valTxtBox - 0.2
    If valTxtBox < 0 Then valTxtBox = 0
    TextBox1 = Replace(valTxtBox, ",", ".")
End Sub

Private Sub SpinButton1_SpinDown()
Dim valTxtBox As Double
    valTxtBox = CDbl(Replace(TextBox1, ".", ","))
    valTxtBox = valTxtBox - 0.2
    If valTxtBox < 0 Then valTxtBox = 0
    TextBox1 = Replace(valTxtBox, ",", ".")
End Sub

Private Sub SpinButton1_SpinUp()
Dim valTxtBox As Double
    valTxtBox = CDbl(Replace(TextBox1, ".", ","))
    valTxtBox = valTxtBox + 0.2
    If valTxtBox > 1 Then valTxtBox = 1
    TextBox1 = Replace(valTxtBox, ",", ".")
End Sub

Private Sub UserForm_Initialize()
With SpinButton1
  .Delay = 50
  .Orientation = fmOrientationVertical
End With
End Sub