こんにちは。

> KeyAscii <> vbKeyBack + vbKeyDecimal
確かに。「vbKeyBack + vbKeyDecimal」では、vbKeyBackとvbKeyDecimalのコードを足した値との比較になりますね。

＞(Len(Text1.Text) >= 4 And KeyAscii <> vbKeyBack + vbKeyDecimal)
この場合、既に4桁入力されているので、バックスペースのみ許可すれば良いのでは？
それとも、4桁目に小数点を入れる特殊な操作があるのですか。