Split Text File Into Multiple Text Files keeping the header row

[June7]

Should be able to attach up to 2mb zip file. However, posted lines are enough to test with.

Consider:

...
Dim strH As String
...
    Set TSRead = FSO.OpenTextFile(inputFile)
    strH = TSRead.readline & vbCrLf
    strH = strH & TSRead.readline & vbCrLf
...
            TSWrite.Write strH & Join(outputLines, vbCrLf)
...
        TSWrite.Write strH & Join(outputlines2, vbCrLf)
...

If you really don't want to include line 1 in subsequent pages, that gets a bit more complicated. Consider:

...
Dim strH1 As String, strH2 As String
...
    Set TSRead = FSO.OpenTextFile(inputFile)
    strH1 = TSRead.readline & vbCrLf
    strH2 = TSRead.readline & vbCrLf
...
            TSWrite.Write IIf(part = 1, strH1, "") & strH2 & Join(outputLines, vbCrLf)
...
        TSWrite.Write strH2 & Join(outputlines2, vbCrLf)
...