I'm using the following code below, which works fine, but is there someway I can automatically write to another file when the size of the initial one reaches 400KB and so on, so I could finish up with 10 400KB files rather than one 4MB file?
If CommonDialog1.FileName <> "" Then
Open Left(CommonDialog1.FileName, Len(CommonDialog1.FileName) - (Len(CommonDialog1.DefaultExt) + 1)) & Mid(CommonDialog1.DefaultExt, 2) For Append As #1
For ID = 1 To ProgressBar1.Max
Print #1, Query