?_?さん

早々のご回答ありがとうございます。
>> (Len(Text1.Text) >= 4 And KeyAscii <> vbKeyBack And KeyAscii <> vbKeyDecimal)
>4桁「以上」もだめ？

実行してみましたが、だめでした。

また、｢１～９｣｢.｣のみを有効にしたコードで試しましたが。

Private Sub Text1_KeyPress(KeyAscii As Integer)



   '｢1-9｣[.]以外の入力はじき、5桁以上は入力不可  

    If Not IsNumeric(Chr$(KeyAscii)) And KeyAscii <> vbKeyDecimal　Or _

       (Len(Text1.Text) >= 4 And KeyAscii <> vbKeyDecimal) Then

        KeyAscii = 0

    Else

        '全角を半角に変換する  

        KeyAscii = Asc(StrConv(Chr$(KeyAscii), vbNarrow))

    End If



End Sub

数字は入力できるものの、小数点は入力されませんでした。
根本的に何かの設定に間違い、不足があるのでしょうか？

よろしくお願いいたします。