Ny linie i ascii fil

Hej Eksperter

Jeg sidder og arbejder med nogle tekstfiler, hvor den øverste og nederste linie skal være blank.

Jeg skriver til filen således:

Open "c:\test\output.txt" For Output As #1
antal = Sheets("ark1").Range("a1") - 1

For i = 1 To antal
linie = Sheets("ark2").Range("b" & i) & "      " & Sheets("ark2").Range("a" & i)
Print #1, linie
Next i
Close #1

Mit resultat skal se sådan her ud:
(blank linie)
1234      4321
2345      5432
osv...
(blank linie)