Skift linie

Hej,

Er ved at få et VBA til at eksportere lidt data til en txt fil.
Men jeg kan ikke få den til at lave linie skift.

Dim Linie As Variant
For Each C In Range("A1:F6").Cells
Linie = Linie & C & ";"
Next
Linie = Left(Linie, Len(Linie) - 1)
Open "C:\test.txt" For Append As #1
  Print #1, Linie
Close #1

Når den skifter fra A6 til B1 skulle den gerne lave et linie skift i tekst filen også.

MVH
Thomas Jensen