不明白你的意图。统计汉字个数这样写
Dim str As String = "型号为abc455型"str = System.Text.RegularExpressions.Regex.Replace(str, "[^\u4e00-\u9fa5]", "")msgbox(str)msgbox(str.length)