Tách dữ liệu file .csv

[VietVessel]

Mình có câu hỏi muốn nhờ mọi người tư vấn.
Mình có khoảng 50 file .csv có các trường như sau:
Date/Time/Pair/Price
Mình muốn tách ra thành một số file riêng, phân theo từng pair nên viết thử một đoạn code như thế này, không biết có chính xác không?

Sub CopyFiles()
Dim f As Object, cnt As Long, buf As String, i As Long, pairname As String
  With CreateObject("Scripting.FileSystemObject")
    For Each f In .GetFolder("F:\Test").Files
      Open f For Input As #1
      Do Until EOF(1)
          Line Input #1, buf
          pairname = Split(buf, ",")(2)
          Select Case pairname
            Case "USDCHF"
               Open "F:\USDCHF.csv" For Append As #2
               Print #2, buf
               Close #2
            Case "EURUSD"
               Open "F:\EURUSD.csv" For Append As #3
               Print #3, buf
               Close #3
            Case "GBPUSD"
               Open "F:\EURUSD.csv" For Append As #4
               Print #4, buf
               Close #4
            Case "EURJPY"
               Open "F:\EURUSD.csv" For Append As #5
               Print #5, buf
               Close #5
            Case "USDJPY"
               Open "F:\EURUSD.csv" For Append As #6
               Print #6, buf
               Close #6
            End Select
     Loop
     Close #1
    Next f
  End With
End Sub

Mình muốn hỏi thêm một việc nữa là kích thước một file rất lớn, dù chỉ là .csv nhưng mình dự tính nó phải lên đến vài GB, không biết xử lý có mất nhiều thời gian không? Tổng kích thước file đầu vào là hơn 10G. Mình chưa xử lý file có kích thước lớn như vậy nên rất băn khoăn.