Hab dir mal eine kleine Funktion dazu geschrieben. Das Array bzw. die Zeilenanzahl musst du je nach Größe der Datei anpassen.
Code:
Dim Path As String
Dim x As Integer
Dim datei(6) As String
Dim ZeilenProDatei As Integer
x = 0
Path = App.Path & "\main.txt"
Open Path For Input As #1
Do Until EOF(1)
x = x + 1
Line Input #1, dat
datei(Int(x / 20)) = datei(Int(x / 20)) & vbNewLine & dat
Loop
Close #1
For i = 0 To UBound(datei())
If datei(i) <> "" Then
Open App.Path & "\Part" & i & ".txt" For Output As #1
Print #1, datei(i)
Close #1
End If
Next i