→→→半角のみや全角カタカナのみを指定

半角英数字のみを入力の対象にする


If  Regex.IsMatch( TextBox1.Text, "^[A-Za-z0-9 ]{5}$") Then
   StatusBar1.Text = TextBox1.Text +  "が入力されました"
Else
   StatusBar1.Text = "半角で入力して下さい"
End If
-------------------------------------------------------------------------------------


全角カタカナのみを対象にする
"^[ァ-ー]+$"       (ァは小さなア)

全角のみを対象にする
"^[^ -~]+$"