Как разбить огромный csv файл

Option Explicit
 
Sub SplitCSV()
    Dim st() As String, s As String, i As Long
    Dim n As Long, k As Long, m As Long
    On Error Resume Next
    MkDir (ThisWorkbook.Path & "\Result")
    On Error GoTo er
    n = 10000 'на сколько строк разбиваем файл
    Open ThisWorkbook.Path & "\1.csv" For Input As #1
        Do
           ReDim st(1 To n)
           k = 0
           Do
              k = k + 1
              Input #1, s
              st(k) = s
           Loop Until EOF(1) Or k >= n
           m = m + 1
           Open ThisWorkbook.Path & "\Result\Part_" & CStr(m) & ".csv" For Output As #2
              For i = 1 To n
                  Print #2, st(i)
              Next i
           Close #2
         Loop Until EOF(1)
    Close #1
    MsgBox "OK"
Exit Sub
er: MsgBox "Error" & vbCrLf & Err.Description, vbCritical
End Sub

Sub GetFirstRows()
Dim i&, s$
  Open "c:\temp\myfile.csv" For Input As #1 'огромный файл
  Open "c:\temp\myfile1.csv" For Output As #2 'новый файл
  For i = 1 To 1000
    Line Input #1, s
    Print #2, s
  Next
  Reset
End Sub

Sub qwert()
Dim sl: Set sl = CreateObject("scripting.dictionary") '
Dim r, ri, lr, m(), t
 
'''*********************просто заполнение уникальными значениями.
'Randomize
'For r = 1 To 5000
'    Do
'        t = Int(1000001 * Rnd)
'    Loop While sl.exists(t)
'    sl(t) = r
'Next r
' ActiveSheet.[a1].Resize(sl.Count) = Application.Transpose(sl.keys)
''***************************************
 
With ActiveSheet
    lr = .Cells(.Rows.Count, 1).End(xlUp).Row
    m = .[a1].Resize(lr, 2).Value
    For r = 1 To 5000
        sl(m(r, 1)) = r 'запоминаем значение и номер строки в словарь
    Next r
 
'словарь заполнен уникальными. дальше работа с файлом.
'Проверять не на чём. моделировать лениво. Примерно так:
 
 Open "c:\temp\myfile1.csv" For Input As #1 'огромный файл
  
'цикл выполняется, пока конец файла не достигнут
        Do Until EOF(1)
           'при каждом вызове оператора Line Input он записывает в
           'переменную новою строку
          Line Input #1, t
        '  тут с переменной t возможно надо что-то сделать
            t = t
        '    и потом проверить наличие в словаре
            If sl.exists(t) Then ' если в словаре есть
        '    например можно поставить метку в массив
                ri = sl(t) '
                m(ri, 2) = "есть такое" '
            End If
        Loop
    Close
     .[a1].Resize(lr, 2) = m ' массив с результатом вывалить на лист
End With
 
End Sub