https://keijiban.umayadia.com/ThreadDetail.aspx?ThreadId=9287#CommentId12505
投稿者 るしぇ  (社会人) 投稿日時 2009/8/21 01:26:39
> If Not IsNumeric(Chr$(KeyAscii)) And KeyAscii <> "."
KeyAscii は Integer なので
If Not IsNumeric(Chr$(KeyAscii)) And Chr$(KeyAscii) <> "."
ね。

もしくは
If Not IsNumeric(Chr$(KeyAscii)) And KeyAscii <> 46
> 統一感が無くてちょっと嫌な感じですが・・・
# vbKeyDelete を使うのは意味ないし＾＾；
# 全部Chrに統一するのもねぇorz
0