Разделение текста на равные части

        Dim ALL() As String = IO.File.ReadAllLines("C:\1.txt", System.Text.Encoding.Default)
        Dim Half As Integer = ALL.Length / 2
        Dim F(Half - 1) As String
        Dim S(ALL.Length - Half - 1) As String
        Array.Copy(ALL, 0, F, 0, Half)
        Array.Copy(ALL, Half, S, 0, ALL.Length - Half)
        IO.File.WriteAllLines("C:\First.txt", F, System.Text.Encoding.Default)
        IO.File.WriteAllLines("C:\Second.txt", S, System.Text.Encoding.Default)

        Dim ALL() As String = IO.File.ReadAllLines("C:\1.txt", System.Text.Encoding.Default)
        Dim Half As Integer = ALL.Length / 4
        Dim F(Half - 1) As String
        Dim S(ALL.Length - Half - 1) As String
Dim A(тут что-то) As String
Dim B(тут тоже что-то) As String
        Array.Copy(ALL, 0, F, 0, Half)
        Array.Copy(ALL, Half, S, 0, ALL.Length - Half)
Array.Copy(ALL, 0, A, 0, Half)
Array.Copy(ALL, Half, B, 0, ALL.Length - Half)
        IO.File.WriteAllLines("C:\First.txt", F, System.Text.Encoding.Default)
        IO.File.WriteAllLines("C:\Second.txt", S, System.Text.Encoding.Default)
 IO.File.WriteAllLines("C:\3.txt", A, System.Text.Encoding.Default)
 IO.File.WriteAllLines("C:\4.txt", B, System.Text.Encoding.Default)

        Dim OFD As New OpenFileDialog With {.Filter = "Текстовые файлы|*.txt", .Title = "Выберите целевой файл для разделения"}
        If OFD.ShowDialog <> Windows.Forms.DialogResult.OK Then Exit Sub
        Dim ALL() As String = IO.File.ReadAllLines(OFD.FileName, System.Text.Encoding.Default)
        Dim Half As Integer = ALL.Length / 2
        Dim F(Half - 1) As String
        Dim S(ALL.Length - Half - 1) As String
        Array.Copy(ALL, 0, F, 0, Half)
        Array.Copy(ALL, Half, S, 0, ALL.Length - Half)
        Dim SFD As New SaveFileDialog With {.Title = "Выберите файл для сохранения первой части исходного файла", .FileName = "Part1.txt"}
        If SFD.ShowDialog <> Windows.Forms.DialogResult.OK Then Exit Sub
        IO.File.WriteAllLines(SFD.FileName, F, System.Text.Encoding.Default)
        Dim SFD2 As New SaveFileDialog With {.Title = "Выберите файл для сохранения второй части исходного файла", .FileName = "Part2.txt"}
        If SFD2.ShowDialog <> Windows.Forms.DialogResult.OK Then Exit Sub
        IO.File.WriteAllLines(SFD2.FileName, S, System.Text.Encoding.Default)

        Dim OFD As New OpenFileDialog With {.Filter = "Текстовые файлы|*.txt", .Title = "Выберите целевой файл для разделения"}
        If OFD.ShowDialog <> Windows.Forms.DialogResult.OK Then Exit Sub
        Dim ALL() As String = IO.File.ReadAllLines(OFD.FileName, System.Text.Encoding.Default)
        Dim Inp As String = InputBox("Количество частей", "", "2")
        If IsNumeric(Inp) = False Then MsgBox("Некорректные данные", MsgBoxStyle.Critical) : Exit Sub
        Dim Parts As Integer = CInt(Inp)
        If Parts < 1 Or Parts > ALL.Length - 1 Then MsgBox("Число частей не должно быть меньше или строк в файле") : Exit Sub
        Dim Lng As Integer = ALL.Length / Parts
        Dim FBD As New FolderBrowserDialog With {.Description = "Выберите папку для сохранения файлов"}
        If FBD.ShowDialog <> Windows.Forms.DialogResult.OK Then Exit Sub
        Dim Tmp(Lng - 1) As String
        For I As Integer = 0 To Parts - 2
            Array.Copy(ALL, I * Lng, Tmp, 0, Tmp.Length)
            IO.File.WriteAllLines(FBD.SelectedPath & "\Part" & I + 1 & ".txt", Tmp, System.Text.Encoding.Default)
        Next
        Dim Tmp2(ALL.Length - (Parts - 1) * Lng - 1) As String
        Array.Copy(ALL, (Parts - 1) * Lng, Tmp2, 0, Tmp2.Length)
        IO.File.WriteAllLines(FBD.SelectedPath & "\Part" & Parts & ".txt", Tmp2, System.Text.Encoding.Default)