Imports System
Public Class Program
Public Shared Function DivideStringIntoEqualParts(ByVal str As String, ByVal parts As Integer) As String()
Dim length As Integer = str.Length
If length Mod parts <> 0 Then
Console.Write("No equal parts")
Return Nothing
End If
Dim j As Integer = 0, part_size As Integer = length / parts
Dim parts_arr As String() = New String(parts - 1) {}
Dim i As Integer = 0
While i < length
parts_arr(j) = str.Substring(i, part_size)
j += 1
i = i + part_size
End While
Return parts_arr
End Function
Public Shared Sub Main(ByVal args As String())
Dim str As String = "vb.net java c++ c python"
Dim parts As Integer = 4
Dim parts_arr As String() = DivideStringIntoEqualParts(str, parts)
For i As Integer = 0 To parts_arr.Length - 1
Console.WriteLine(parts_arr(i))
Next
End Sub
End Class
' run:
'
' vb.net
' java
' c++ c
' python
'
