漢字・ひらがなチェック - mfgd @ wiki

Private Function KanjiChk(ByVal strStr As String) As Boolean

   '全角文字、全角英数字が1文字でもヒットした場合エラー
   If Regex.IsMatch(strStr, "[一-龠]+|[ぁ-ん]+|[ァ-ヴ]+]+|[ａ-ｚＡ-Ｚ０-９]+") Then Return False

End Function

これ使うには【Imports System.Text.RegularExpressions】する必要有。

VBは文字コードにUnicodeを採用しているらしい。

Unicodeの漢字の正規表現は、
【[一-龠]+|[ぁ-ん]+|[ァ-ヴ]+]+|[ａ-ｚＡ-Ｚ０-９]+】でほぼ間違いないらしい。
参考URL：http://d.hatena.ne.jp/toton/20051102/1130971334

2009/04/01：vb2008で動作確認済み