FSO (File system object) problemer

str.write(\"dscz\") & vbCrlf \' kunne være en løsning, men personligt benytter jeg altid Open, Input, Print og Close når jeg arbejder med filer.

\' Skriv til en fil
filename = \"c:\\test.txt\"
filenum = Freefile
Open filename For Output As filenum
Print #filenum, \"Noget tekst\"
Print #filenum, \"Noget mere tekst\"
Close #filenum

\' Indlæs en fil
filename = \"c:\\test.txt\"
filenum = Freefile
Open filename For Input As filenum
filecontents = Input(filelen(filename), filenum)
Close #filenum

Det ser ok ud, men følgende kode indsætter ikke en blank linie :

\' Skriv til en fil
FileName = \"c:\\fpm\\printout\\service.cfg\"
filenum = FreeFile
Open FileName For Output As filenum
Print #filenum, \"Noget tekst\"
Print #filenum, vbCrLf
Print #filenum, \"Noget mere tekst\"
Close #filenum

Hvad gør jeg?!?

filename = \"c:\\test.txt\"
filenum = Freefile
Open filename For Output As filenum
Print #filenum, \"Noget tekst\" & vbcrlf & vbcrlf & \"Noget mere tekst\"
Close #filenum