Private Function SplitWords(ByVal s As String) As String()
Return Regex.Split(s, "\W+")
End Function
Private Function SplitWords(ByVal s As String) As String()
Return s.Split(","c)
End Function
Dim Accounts As String() = SplitWords(txtRoot.Text)
' Use For Each loop over words and display them
Dim List As String
For Each List In Accounts
If List = "" Then
Else
'Call Create_Folder(folder, List)
Stat.Items.Add(Create_Folder(folder, List))
End If
Next
Private Function SplitWords(ByVal s As String) As String()
Return s.Split(New Char(){"."c})
End Function [code]
Private Function SplitWords(ByVal s As String) As String()
Return s.Split(New Char(){"."c})
End Function