format forcé des textbox

[Novice avance !?]

bonjour,
soit un code formater ces textbox au format "0,00" mais comment forcer de la même manière quelque soit la manière d'entrer les chiffres
qu'on entre par exemple 125,25 ou 125.25 !?

Private Sub CommandButton1_Click()
Dim k As Byte
Dim h As Byte
h = 5
For k = 1 To 4
Controls("TextBox" & h) = Format(Controls("TextBox" & h), "0.00")
h = h + 1
colonne = colonne + 1
Next k
End Sub

merci par avance

 

[JC de Lorient]

Re : format forcé des textbox

Salut novice et le forum
en mettant ce code pour le textbox concerné

Private Sub Textbox3_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
If KeyAscii = 46 Then KeyAscii = 44
End Sub

Que tu tapes le point ou la vigule, le format sera toujours identique
en fait ce code dit : si tu tapes la virgule dans le textbox alors ça sera un point
JC