数値フィールドに半角数値のみを入力したい

質問

VB.Netで数値フィールドがあります。
この数値フィールドに半角数値の０～９のみだけを入力されるようにしたいです。
※全角の０～９は入力はNG。もしくは、全角で入力しても、自動的に半角になれば
問題ありません。
プロパティ値を変更するなどの手段があれば、教授いただきたく。
よろしくお願いいたします。

回答No.1

NMBtoshi

Sub Sumple()
With Selection.Validation
.Delete
.Add Type:=xlValidateWholeNumber, AlertStyle:=xlValidAlertStop, _
Operator:=xlBetween, Formula1:="0", Formula2:="9"
.IMEMode = xlIMEModeAlpha
End With
End Sub