Access 日本語が含まれていたら拒否する

（対象）Access　VBA
（確認）Access2010


今回は入力内容に日本語が含まれていたら
拒否する方法です。

―――――――――――――――――――――――――

○ソース

―――――――――――――――――――――――――

  '○日本語が含まれていたら拒否する
  Dim Str1 as String

  Str1 = Me.コントロール.Value

  If Str1 Like "*[!0-9a-zA-Z]*" Then

    MsgBox "数字とアルファベット以外は禁止です", vbCritical, "報告：日本語の禁止"

    Me.コントロール.Value = ""

    Me.コントロール.SetFocus

    Exit Sub

  End If

―――――――――――――――――――――――――

○解説

―――――――――――――――――――――――――

1行目から順番に、

　１．文字型の変数（Str1）を宣言
　２．変数に調べたい文字を格納
　３．変数の中身に数字・アルファベット以外が
　　　入っているかどうかの判断（[!○○]で「○○以外」）
　４～７．入っていた時の処理→処理抜け

「あ‐ん」「ア‐ン」「亜-黑」で調べる方法もありますが、
どちらかというとこちらの方が楽でしょうか。