皆様、ありがとうございます。
NumericUpdownを使うことにしました。

MaskedTextBox使って、ボタン押したときにStrconvで
半角変換かけてしまえば楽なような……。

魔界の仮面弁士さんの回答を見て以下を実行

        Dim a = "１２３４"   '--- 全角数字です。
        Dim blnIsNumeric = IsNumeric(a)
        Dim intA = CInt(a)
        Dim intB = 0
        Dim blnTryParse = Integer.TryParse(a, intB)

blnIsNumeric = True
intA = 1234
blnTryParse = False
intB = 0

となりました。

つまり魔界の仮面弁士さんの方法で判断しないと半角数字に限定出来ないです。

修正箇所については既に回答が付いているので、別の視点から。


たとえば、IsNumeric("9876543210") は True ですが、CInt("9876543210") はエラーとなります。

IsNumeric が True であっても、CInt できない場合がありますので、数値チェックをしたいなら、
IsNumeric ではなく、Integer.TryParse メソッドを利用された方が良いかと思います。

・TryParse メソッドを使った例
http://homepage1.nifty.com/rucio/main/Toukou/T9_BMI.htm


もしくは、TextBox の代わりに NumericUpDown を使うという手もあります。
NumericUpDown コントロールであれば、数値以外の値は入力できませんし、
上限値や下限値も設定しておくこともできます。

とくまさんの言うとおりですが、AndAlsoだとなおよし。

ちなみにMessageBoxの引数は最初がメッセージで２番目がタイトルなので
『注意』とメッセージ欄に表示されると思います。

& を And にして下さい。

VB２０１０使用です。
現在、タイマー作成中です。問題のコードは以下のとおり。

If IsNumeric(TextBox2.Text) & IsNumeric(TextBox1.Text) Then
            SpanTime = CInt(TextBox2.Text) * 60 + CInt(TextBox1.Text)
            Me.DialogResult = Windows.Forms.DialogResult.OK
            Me.Close()
Else
            MessageBox.Show("注意", "半角数字で入力してください", MessageBoxButtons.OK)
End If

テキストBOXに数字以外の文字を入れてOKを押すと、「半角数字で入力してください」という感じにしたいのですが、一行目で引っかかります。
これはエラー処理というものを使わないとだめなのでしょうか？
IsNumericではString型をBooleanに変えることはできないことはエラーメッセージで分かっているのですが、どういう型に変えればいいのかがわかりません。
ちなみに私が知っている型はInteger,Boolean,String です。