こんにちは。

小数点が入力されない件ですが、おそらく、「Not IsNumeric(Chr$(KeyAscii)) 」で小数点が数値で無いため、はじかれているみたいですね。

あと余談ですが、IF文に限らないことですが、複数の条件をANDとORを混ぜて記述する場合、判断の優先順位が分かるよう、かっこで条件を括るようにした方が、可動性の面と信頼性の面で良いとおもいます。
コードを見た限りでは、コンピュータがどの順番で条件を評価しているか、分かりません。