文字列を分割してそこに区切り文字を含めるには

Dim text As String = "こんにちは。今日は、快晴です。"
Dim separator As String() = New String() {"、", "。"}
Dim result() As String

result = text.Split(separator, StringSplitOptions.None)

Dim text As String = "こんにちは。今日は、快晴です。"

text = System.Text.RegularExpressions.Regex.Replace(text, "[、。]", Environment.NewLine & "$&" & Environment.NewLine)

Console.WriteLine(text)     ' 末尾の改行が入るけど
Console.ReadLine()

' 配列に入れたいなら
Dim result() As String = text.Split(New String() {Environment.NewLine}, StringSplitOptions.RemoveEmptyEntries)

For Each s As String In result
    Console.WriteLine(s)
Next
Console.ReadLine()

For Each item As String In separator
    text = text.Replace(item, vbCrLf & item & vbCrLf)
Next

Dim separator() As Char = New Char() {"、"c, "。"c}
text = New String(text.ToCharArray().SelectMany(Function(charItem) If(separator.Contains(charItem), vbCrLf & charItem & vbCrLf, charItem)).ToArray())