Imports System
Public Module Module1
Public Sub Main()
Dim s As String = "vb.net desktopnetsoftware net programmingnet"
Dim arr As String() = s.Split(New String() {"net"}, StringSplitOptions.RemoveEmptyEntries)
For Each element As String In arr
Console.WriteLine(element.Trim())
Next
End Sub
End Module
' run:
'
' vb.
' desktop
' software
' programming
'