小数点（ピリオド）を入力規制するには？ (ID:122585)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 Private Sub Text1_KeyPress(KeyAscii As Integer) Select Case KeyAscii Case vbKeyA If KeyAscii = vbKeyA Then KeyAscii = vbKey0 Else KeyAscii = 0 End If Case vbKeyB If KeyAscii = vbKeyB Then KeyAscii = vbKey1 Else KeyAscii = 0 End If （〜省略〜） Case vbKeyJ If KeyAscii = vbKeyJ Then KeyAscii = vbKey9 Else KeyAscii = 0 End If Case vbKeyBack If KeyAscii = vbKeyBack Then KeyAscii = vbKeyBack Else KeyAscii = 0 End If Case vbKeyDelete If KeyAscii = vbKeyDelete Then KeyAscii = vbKeyDelete Else KeyAscii = 0 End If Case Else KeyAscii = 0 End Select End Sub 上記のようなA〜Jの数字への割り当てと BackspaceとDeleteキー以外は 尿力を受け付けないコードにしたのですが 「.」は入力を受け付けて しまいます。 「.」の入力を受け付けないようにするには どのようなコードにすれば いいでしょうか？