とすると、
> If Not IsNumeric(Chr$(KeyAscii)) And KeyAscii <> vbKeyDecimal　
は、

If Not IsNumeric(Chr$(KeyAscii)) And KeyAscii <> "."

となるのですかね？

そうすると、

If Not IsNumeric(Chr$(KeyAscii)) And KeyAscii <> vbKeyBack And KeyAscii <>  "." Or _
  (Len(Text1.Text) >= 4 And KeyAscii <> vbKeyBack And KeyAscii <>  ".") Then

なのですかねぇ？
統一感が無くてちょっと嫌な感じですが・・・

流れ者さん＞
コピー元のソース間違えました・・・