Simuler un masque de saisie?

Private Sub textBox1_keyPress(ByVal KeyAscii As MSForms.ReturnInteger)
If Not Chr(KeyAscii) Like "[0-9]" And Not Chr(KeyAscii) Like "," Then KeyAscii = 0 And MsgBox("Ce caractère est interdit !" & vbCrLf & "Seuls les chiffres et la virgule (comme séparateur numérique) sont autorisés.", vbOKOnly + vbCritical, "")
End Sub

Private Sub TextBox1_Change()
If TextBox1 <> "" Then
    If Not IsNumeric(TextBox1) Then
        MsgBox ("la saisie doit être numérique")
        If Len(TextBox1) > 1 Then TextBox1 = Left(TextBox1, Len(TextBox1) - 1) Else TextBox1 = Null
    End If
End If
End Sub

Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
If (KeyAscii > 47 And KeyAscii < 58) Or KeyAscii = 8 Or KeyAscii = 32 Then
KeyAscii = KeyAscii
Else
KeyAscii = 0
MsgBox "Seules les chiffres sont admis.", _
    vbCritical + vbOKOnly, _
    "Erreur de saisie"
End If
End Sub

Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
If InStr("0123456789,", Chr(KeyAscii)) = 0 Then KeyAscii = 0
End Sub