Imports System
Imports System.IO
Imports System.Collections
 
Module Module1
 
    Sub Main()
        Dim Lesen As New StreamReader("c:\quelle.csv")
        Dim arrText As New ArrayList()
        Dim Zeile As String = ""
 
        Do
            Zeile = Lesen.ReadLine()
            If Not Zeile Is Nothing Then
                arrText.Add(Zeile)
            End If
 
        Loop Until Zeile Is Nothing
        Lesen.Close()
 
        Dim zaehler As Integer = 0
        Dim dateiname As String = "c:\destination"
        Dim endung As String = ".csv"
        Dim dateinummer As Integer = 1
        Dim pfad = dateiname & CStr(dateinummer) & endung
        Dim zieldatei As FileStream = New FileStream(pfad, _
          FileMode.OpenOrCreate)
        Dim dateischreiben As StreamWriter = New StreamWriter(zieldatei)
        For Each Zeile In arrText
            dateischreiben.WriteLine(Zeile)
            zaehler += 1
            If zaehler = 65000 Then
                dateischreiben.Close()
                application.exit()
            End If
        Next
        dateischreiben.Close()
    End Sub
 
End Module