エクセルマクロ（VBA）について質問です。

エクセルのセルの内容をテキストファイルに出力するマクロを組んでいるのですが、改行がうまく反映されません（ムダな改行が追加されてしまう）
何が原因なのでしょうか？

たとえば、エクセルのB列のセルに以下のような改行ありの文章が入力されている
------------------------------
今日は天気です。
今週はずっと晴天が続きます。
来週は雨模様になるでしょう。
------------------------------

しかし、これをテキストファイルに出力すると以下のようになってしまいます（改行が追加される）
------------------------------
今日は天気です。

今週はずっと晴天が続きます。

来週は雨模様になるでしょう。
------------------------------

ソースの一部

iOutFileNo1 = FreeFile
Open sOutFilePath1 For Output Access Write As #iOutFileNo1


For lIdx1 = 3 To lMaxRow
With Sheet1
naiyo = Trim(Cells(lIdx1, 2))
End With

Print #iOutFileNo1, naiyo
Next lIdx1
Close #iOutFileNo1