Imports System
Public Class Program
Public Shared Sub Main(ByVal args As String())
Dim str As String = "vb c java c++ python go"
Dim center As Integer = str.Length / 2
Dim parts As String() = New String() {str.Substring(0, center), str.Substring(center)}
Console.WriteLine(parts(0))
Console.WriteLine(parts(1))
End Sub
End Class
' run:
'
' vb c java c+
' + python go
'