日本語も含めてマッチする正規表現（簡易版）

Function test(para) As Boolean
    Dim regex As RegExp
    Set regex = New RegExp
    
    regex.Pattern = "[一-龠ぁ-んーァ-ヶＡ-Ｚａ-ｚ０-９\w]+"
    
    test = regex.test(para)
    
    Set regex = Nothing
End Function

↓にあるように、正しくはないがおおむね使える。

ものかの » Unicodeで「漢字」の正規表現