テキストボックスの入力を制限するには？ (ID:117769)

名前

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

本文 数値のみ入力させるというこれ↓ Private Sub Text1_KeyPress(KeyAscii As Integer) Dim str As String str = Chr(KeyAscii) If str >= "0" And str <= "9" Then ElseIf str = Chr(8) Then Else KeyAscii = 0 End If End Sub を改造してやってみようと思ったのですが、上手くいきませんでした。 過去ログも一通り見たのですが・・・ 勉強不足ですみません。