Imports System
Public Class Program
Public Shared Sub Main()
Dim str As String = "CullenArthurCora"
Dim words As String() = str.Split("r"c)
For Each word As String In words
Console.WriteLine(word)
Next
End Sub
End Class
' run:
'
' CullenA
' thu
' Co
' a
'