Dim str As String = "深圳你好A13-007"
str = System.Text.RegularExpressions.Regex.Replace(str, "[\u4e00-\u9fa5]", "")msgbox(str)