Split string after x commas in VB

Dim inputString As [String] = "1,2,3,4,5,6,7,8,9,10,11,12,13,14"
Dim str As String() = inputString.Split(","C)
// First five elements
Dim str1 As String = String.Join(",", str, 0, 5) 
// Rest element
Dim str2 As String = String.Join(",", str, 5, str.Length - 5)  

Dim input As String = "1,2,3,4,5,6,7,8,9,10,11,12,13,14"
For Each element As IEnumerable(Of String) In input.Split(","c).Batch(5)
    'your code here..
    Console.WriteLine(String.Join(", ", element))
Next

Quote:

1, 2, 3, 4, 5
6, 7, 8, 9, 10
11, 12, 13, 14

Dim outputstring As New List(Of String) 

Dim myArray() As String = inputString.Split(New Char(){","}, StringSplitOptions.RemoveEmptyEntries)

For i As Integer = 0 To CInt(myArray.Length/5)*5 Step 5
	Dim s As String = String.Join(",", myArray.Skip(i).Take(5))
	If Not s Is String.Empty Then outputstring.Add(s)
Next

1,2,3,4,5 
6,7,8,9,10 
11,12,13,14,15 

Imports System.Text.RegularExpressions

Dim outputstring As New List(Of String)
Dim inputString As String = "1,2,3,4,5,6,7,8,9,10,11,12,13,14"
For Each byFive As Match In Regex.Matches(inputString, "((?:\d+,){1,4}\d+),?")
    outputstring.Add(byFive.Groups(1).Value)
Next