file output

Hej

jeg har en tekstfil jeg skriver til. problemet er at når jeg skriver til den så er det ligesom at der bliver trykket 2 gange på "enter" efter den sidste linie er skrevet. det skal jeg have ændret. hvad er galt, her er koden:



  lPath = helesti
  lFNo = FreeFile
  Open lPath For Output As #lFNo
  Print #lFNo, lStr
  For Each c In Selection
    If lRow < c.Row And lStr <> "" Then
      Print #lFNo, lStr
      lStr = ""
    End If
    If lStr = "" Then
      lStr = c
    Else
      lStr = lStr & ";" & c
    End If
    lRow = c.Row
  Next c
  Print #lFNo, lStr
  Close #lFNo