You could use the simple string.Split method
dim s as string = "Blah1, Blah2, Blah3, Blah4, Blah5" 'or whatever the string is
dim ans() as string = s.split(",")
or if you really require regular expressions then something like
Dim r as new RegEx("(,)")
Dim s as String = "Blah1, Blah2, Blah3, Blah4, Blah5"
dim ans() as String = r.Split(s)
should do it. may not be exact as I don't have VS on this PC.