split

Dim ss() As String = s.Split("验收") '只能按“验”进行分割
 Dim ss() As String = s.Split(New String() {"验收"}, StringSplitOptions.None) ' 按“验收”进行分割

Please follow WeChat's public account ByCAD