Cacher is the code snippet organizer for pro developers

Imports System.Text.RegularExpressions

Module Module1
    Sub Main()
	' The input string.
	Dim sentence As String = "10 cats, 20 dogs, 40 fish and 1 programmer."
	' Invoke the Regex.Split shared function.
	Dim digits() As String = Regex.Split(sentence, ", ")
	' Loop over the elements in the resulting array.
	For Each item As String In digits
	    Console.WriteLine(item)
	Next
    End Sub
End Module

'http://www.dotnetperls.com/regex-split-vbnet