VBでの漢字チェックルーチン

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

Unicodeの漢字の正規表現は、以下でほぼ間違いないそうです。(参考：http://d.hatena.ne.jp/toton/20051102/1130971334)

[一-龠]+|[ぁ-ん]+|[ァ-ヴ]+]+|[ａ-ｚＡ-Ｚ０-９]+

したがって、VBでの漢字チェックルーチンは以下の感じです。

Public Function CheckKanji(strIn As String) As Boolean
    
    Dim RE As New RegExp

    RE.Pattern = "[一-龠]+|[ぁ-ん]+|[ァ-ヴ]+]+|[ａ-ｚＡ-Ｚ０-９]+"

    If RE.Test(strIn) Then
        'MsgBox "入力文字列には、漢字が含まれてます。"
        CheckKanji = True
    Else
        'MsgBox "入力文字列には、漢字が含まれていません。"
        CheckKanji = False
    End If

End Function