Разделить файл по размеру - Visual Basic .NET

Формулировка задачи:

Есть файл тхт с n-количеством строк, размером 6мб. Нужно разделить этот файл на файлы по 1,8 мб. были мысли загнать построчно в массив и делить по количеству строк, но я думаю есть методы и попроще.

Решение задачи: «Разделить файл по размеру»

textual
                            Листинг программы 
                        
 
                        
                          
                    
        Dim MySize As Long = 1024 'Байт
        Dim Lines() As String = IO.File.ReadAllLines("C:\00.txt", Encoding.Default)
        Dim SB As New StringBuilder
        Dim BadBoysBlue As Integer = 0
        For Each Line As String In Lines
            SB.AppendLine(Line)
            If SB.Length > MySize Then
                IO.File.WriteAllText("C:\00_" & BadBoysBlue & ".txt", SB.ToString, Encoding.Default)
                BadBoysBlue += 1
                SB.Remove(0, SB.Length)
            End If
        Next
        If SB.Length > 0 Then IO.File.WriteAllText("C:\00_" & BadBoysBlue & ".txt", SB.ToString, Encoding.Default)