Dim str() As String = TextBox3.Text.Split(Environment.NewLine)
Dim str1 As String = ""
Dim i As Integer
For i = 0 To str.Length - 1
str1 &= str(i) & " "
Next
Dim strString As String = "a,b,c,d,e,f"
Dim strSplit1 As Array
Dim strSplit2 As Array
Dim i As Integer
strSplit1 = Split(strString,",")
strSplit2 = strString.Split(",")
For i = 0 To UBound(strSplit1)
Me.lblText1.Text = Me.lblText1.Text & strSplit1(i) & "<br>"
Next
For i = 0 To strSplit2.Length - 1
Me.lblText2.Text = Me.lblText2.Text & strSplit2(i) & "<br>"
Next