Dim reg as system.text.regularexpressions.regex dim strpattern as string = "[/ u4e00- / u9fa5]" IF reg.ismatch ("My World ABC", StrPattern = True Then Msgbox ("Han Characters" Else Msgbox ("No Chinese Characters") End IF
StrPattern = "[^ / X00- / x7f]" IF reg.Ismatch ("My World ABC.,,.", StrPattern = True THEN MSGBOX ("Have Full-Way Character") Else Msgbox END IF
'Forgot source