Imports System
Imports System.Collections.Generic
Public Class Program
Public Shared Function SplitStringIntoChunks(ByVal str As String, ByVal chunkSize As Integer) As List(Of String)
Dim chunks As List(Of String) = New List(Of String)()
Dim length As Integer = str.Length
Dim i As Integer = 0
While i < length
chunks.Add(str.Substring(i, Math.Min(chunkSize, length - i)))
i += chunkSize
End While
Return chunks
End Function
Public Shared Sub Main(ByVal args As String())
Dim str As String = "abcdefghijk"
Dim chunkSize As Integer = 2
Dim chunks As List(Of String) = SplitStringIntoChunks(str, chunkSize)
Console.WriteLine("Chunks of two characters:")
For Each chunk As String In chunks
Console.WriteLine(chunk)
Next
End Sub
End Class
' run:
'
' Chunks of two characters:
' ab
' cd
' ef
' gh
' ij
' k
'