limiting the decimal point to 1

[Davek1]

I find that most code to limit the decimal point to one is written similar to this.

If KeyAscii = 46 And InStr(Text1, ".") > 0 Then
KeyAscii = 0
Exit Sub
or
Case 8, 48 To 57, 46 And InStr(TextBox, ".") = 0

The downside is that there must be a integer before the decimal point for it to function. Is there no way to limit the decimal point to one AND have the decimal point be the first digit entered? An example would be something less than 1 like .625

I have tried all that I know so far to no avail. Any ideas?

Thanks