Imports System
Imports System.Text.RegularExpressions

Public Class Test
	Public Shared Sub Main()
		Dim text As String = "red 1 green 3 blue"
		Console.WriteLine(String.Join(";", Regex.Split(text, "red|green|blue")))
		'Console.WriteLine(String.Join(";", 
		'  Regex.Split(text, "red|green|blue").Where(Function(s) Not String.IsNullOrWhitespace(s))
		'))
	End Sub
End Class