Ajouter automatiquement un 0 avant une virgule

Bonsoir à tous !

Petite question du soir...

J'ai une TxtBox (txtbox1) numérique, jusque là pas de problème. Est-il possible de "transformer" automatiquement une saisie ",5" par exemple en "0,5" (et ".5" en "0.5")??

Voici le code que j'utilise actuellement:

Private Sub txtbox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
If InStr("1234567890,.-", Chr(KeyAscii)) = 0 Then KeyAscii = 0: Beep
End Sub

Merci beaucoup de votre aide,

Bonne soirée

Bonsoir

A voir

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
  If Len(Me.TextBox1.Value) = 0 Then Exit Sub
  If Left(Me.TextBox1.Value, 1) = "." Or Left(Me.TextBox1.Value, 1) = "," Then
    Me.TextBox1.Value = "0" & Me.TextBox1.Value
  End If
End Sub

Ça fonctionne parfaitement ! Comme d'habitude...

Merci Banzai64 !

Bonne journée,