S
simpleMod
Thanks. that helped a lot.. 
used different case though, much tighter.
Select Case KeyCode
Case Asc("0") To Asc("9"), Asc("."): 'proceed to next char
Case Else: 'do Nothing
KeyCode = 0
End Selec

used different case though, much tighter.
Select Case KeyCode
Case Asc("0") To Asc("9"), Asc("."): 'proceed to next char
Case Else: 'do Nothing
KeyCode = 0
End Selec