Dim reg As System.Text.RegularExpressions.Regex
Dim strPattern As String = "[\u4e00-\u9fa5]"
If reg.IsMatch(Me.TextBox1.Text, strPattern) = True Then
MsgBox("有汉字")
Else
MsgBox("没汉字")
End If
strPattern = "[^\x00-\x7F]"
If reg.IsMatch(Me.TextBox1.Text, strPattern) = True Then
MsgBox("有全角字符")
Else
MsgBox("有全角字符")
End If