kestion tt bete vbscript

c vraiment une question tt bete mais comment fait on pr verifier si un champ remplit par l'utilisateur ne possede que des caracteres compris entre 0et 9 et la ",".

d'avance merci

Sub txt_onkeydown
dim WinEvent
set WinEvent = window.event
if ( (WinEvent.KeyCode < 96 or WinEvent.KeyCode > 105) And (WinEvent.KeyCode < 48 or WinEvent.KeyCode > 57)) and (WinEvent.KeyCode <> 8 and WinEvent.KeyCode <> 46 and WinEvent.KeyCode <> 37 and WinEvent.KeyCode <> 39 )then
window.event.returnValue = false
end if
End Sub

voir représentaion des caratères ascii pour permettre le touche que tu veux