non prise en compte d'une frappe clavier ??

Bonjour a toutes et à tous

Sur mon programme, je souhaite remplacer le code ascii 46 "." par le code ascii 44 ",".
cela fonctionne dans environ 99% des cas , mais quelques fois le code "," ne s'affiche pas mais c'est le code "." qui apparait????


Voici mes routines

Private Sub TB4_Change()
If Right(Me("TB4").Value, 1) = "." Then Right(Me("TB4").Value, 1) = ","
End Sub
Private Sub TB4_KeyUp(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
If KeyCode = 110 Then KeyCode = 188
End Sub
Private Sub TB4_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
If KeyCode = 110 Then KeyCode = 188
End Sub
Private Sub TB4_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
If KeyAscii = 46 Then KeyAscii = 44
End Sub


Quelqu'un aurait il une explication,voire une solution pour remedier à ce probléme ???

D'avance Merci!!