Prevent Certain Character Entry in my App

[Moore71]

I have some VBA codes that prevents entries of certain characters that is not inter or numeric. But my problem now is I want to allow additional (.) key. Reason is because when my client enters amount for item that has decimal point like $10.51, the system ignores the point entered.
Please help me correct that.
Here's my Code:
If (KeyAscii > 47 And KeyAscii < 58) Or (KeyAscii = 8) Then
KeyAscii = KeyAscii
Else:
'MsgBox ("You Must Enter Numbers Only!")
KeyAscii = 0
End If

Thanks.
Regards,
Moore71

 

[plog]

ASCII=8 is a backspace. ASCII=46 is a period

http://www.asciitable.com

 

[Moore71]

I got it easily. Thanks for your quick response