こんにちは。

今、改めて、ソースを眺めてみました、

＞> If Not IsNumeric(Chr$(KeyAscii)) And KeyAscii <> vbKeyBack + vbKeyDecimal
＞True And FalseでElse文実行されません？
おっしゃる通りです。間違えました。すみません。