Module Module1
Sub Main()
Dim arr(9) As String
Dim rnd As New Random()
For i = 0 To arr.GetUpperBound(0)
arr(i) = ChrW(rnd.Next(97, 122))
Next
arr(5) = "split point"
For Each ch In arr
Console.WriteLine(ch)
Next
Dim split_i = Array.FindIndex(arr, Function(x) x = "split point")
Dim arr1(split_i - 1) As String
Dim arr2(arr.GetUpperBound(0) - split_i - 1) As String
Array.Copy(arr, 0, arr1, 0, split_i)
Array.Copy(arr, split_i + 1, arr2, 0, arr.GetUpperBound(0) - split_i)
Console.WriteLine()
For Each ch In arr1
Console.WriteLine(ch)
Next
Console.WriteLine()
For Each ch In arr2
Console.WriteLine(ch)
Next
End Sub
End Module
' run:
'
' w
' j
' m
' t
' j
' split point
' n
' s
' e
' p
' w
' j
' m
' t
' j
' n
' s
' e
' p
