ワークシートの内容をテキストファイルに書き込む際に、テキストファイルでは改行が”↑”と表示されるだけで困っています

質問

エクセルのデータをテキストファイルに出力させたいのですが、テキスト出力の際に"↑"が表示されるだけで改行がうまくできません。
マクロの組み方でアドバイスをいただけないでしょうか？
------------------------------
＜↓具体的に、、、、。＞
・エクセルデータは、同一セル内に改行させたデータがあります。
　　　　　列A　　　列B
　　行1　No,1　　1-111111　　　
　　　　　　　　　 1-1111　　　　
　　行2　No,2　　2-2222　　　　←セル"B1"と"B2"のデータを
　　　 2-22222　　　　テキストでも改行させて表示したい。
・テキストでは、下記のように出力させたい
◆No,1
1-111111
1-1111
◆No,2
2-2222
2-22222
----------------------
＜↓私が試しているコードです。＞
'Test.txt 開く
Open "C:\Test.txt" For Output As #File_Number
'列Aのセルに空白文字列が入るまで、処理を繰り返す
i = "3"
Do While Worksheets("sheet1").Cells(i, 1) <> ""
Print #File_Number, "◆" & Cells(i, 1)
Print #File_Number, Cells(i, 2)
i = i + 1
Loop
'Test.txt を閉じる
Close #File_Number

このマクロだとテキストでは
◆No,1
1-111111↑1-1111
◆No,2
2-2222↑2-22222
となります。
アドバイスの程、よろしくおねがいします。

回答No.1

dell_OK · ベストアンサー

上矢印は &H0A と言う文字コードのようです。
これは「半端な改行」だとでも思ってください。
詳しい説明は省きますが、
「半端な改行」を「普通の改行」に変換すればいいと思います。

以下のように変更してみてください。
Print #File_Number, Replace(Cells(i, 2),vbLf,vbCrLf)

ＯＳのバージョンや、エクセルのバージョンでうまくいかないかも知れません。
私の方では確認していますので、うまくいかなければお知らせください。

お礼

dell_OKさん。ありがとうございます。
さっそく試して、ばっちりOutputできました。
私の問題、無事に解決です。
アドバイスありがとうございました。