参考代码
Dim str As String = "1,2,VIP开卡数"str = System.Text.RegularExpressions.Regex.Replace(str, ",*VIP开卡数,*", "")msgbox(str)