class TestStringSplit
{
    static void Main()
    {
        char[] delimiterChars = { ' ', ',', '.', ':', '\t' };
 
        string text = "one\ttwo three:four,five six seven";
        System.Console.WriteLine("Original text: '{0}'", text);
 
        string[] words = text.Split(delimiterChars);
        System.Console.WriteLine("{0} words in text:", words.Length);
 
        foreach (string s in words)
        {
            System.Console.WriteLine(s);
        }
    }
}
 
 

Private Shared Sub Comparar(cad1 As String, cad2 As String)
	Dim delimiterChars As Char() = {" "C, ","C, "."C, ControlChars.Tab, ControlChars.Lf}
 
 
	Dim wordsCad1 As String() = cad1.Split(delimiterChars)
	Dim wordsCad2 As String() = cad2.Split(delimiterChars)
	System.Console.WriteLine("Las partes que coinciden son:")
 
	For Each s1 As String In wordsCad1
		For Each s2 As String In wordsCad2
			If s1.Equals(s2) Then
				System.Console.WriteLine(s1)
			End If
		Next
	Next
End Sub