Userform : interdire le point dans un format nombre

Private Sub textbox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
 
    Select Case KeyAscii
     Case Asc(",")
         
     Case Asc(".")
        KeyAscii = Asc(",") 'Remplace . par virgule
     Case Else
      If Not IsNumeric(Chr(KeyAscii)) Then KeyAscii = 0
      End Select
      
End Sub

Private Sub TextBox1_Change()
nlet = Len(TextBox1)
If Right(TextBox1, 1) = "," Then MsgBox "Saisir un Point": TextBox1 = Mid(TextBox1, 1, nlet - 1)
End Sub