Imports System.Text.RegularExpressions
Private Function SplitWords(ByVal s As String) As String()
Return Regex.Split(s, "\s+")
End Function
Dim parts as String()="abc,pqr"
words = parts.Split(",")
it will split string in words on the comma ',' basis...