こんにちは、

ASCIIコード表を見ると、小数点は”46”ですね。

http://www.technoveins.co.jp/technical/data/asciispell.htm

だとしたら、

＞If Not IsNumeric(Chr$(KeyAscii)) And KeyAscii <> vbKeyBack + vbKeyDecimal
は、TRUE and TRUE で通りますね。