Imports System
Class Program
Public Shared Sub Main(ByVal args As String())
Dim str As String = "Apples and Oranges and Bananas and Grapes are tasty"
Dim delimiter As String = "and"
Dim parts As String() = str.Split(New String() {delimiter}, StringSplitOptions.None)
For Each part As String In parts
Console.WriteLine(part.Trim())
Next
End Sub
End Class
' run:
'
' Apples
' Oranges
' Bananas
' Grapes are tasty
'