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

        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

となりました。

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