Fejl? i csv

Jeg har lige fundet ud af at min genererede csv-fil bruger den forkerte linje separator... Linjeskift virker, hvis man åbner den i Excel eller wordpad, men i notepad, bliver der blot vist en firkant. Hvordan kan jeg identificere hvilken linje-separator der er brugt, samt hvilken bør jeg bruger for at det virker i min kode:

    Open dintekstfil For Input As #1
    'Line Input #1, linestr
    Do While Not EOF(1)
        Line Input #1, linestr
        parts = Split(linestr, vrlf)
        Open "c:\guide.txt" For Append As #2
        Print #2, parts(felt1) & ";" & parts(felt2) & ";" & parts(felt3) & ";" & parts(felt4) & ";" & parts(felt5)
        Close #2
    Loop
    Close #1

Problemet er at koden ser hele csv-filen som én lang linje... Hvilket jo ikke helt var meningen...