inputで複数行にするには、、

---

VB6にて、
345
2
1
というTEXTを読み込み、ほかのテキストに全く同じ文を表示させようとしたのですが上手くいかずに「34521」と一行で表示されてしまいます、どうしてなんでしょうかっ。

文は以下のを使っております。
    Dim Buff1 As String
    Dim Buff2 As String
Buff2 = ""
fileno = FreeFile
Open "****\test.txt" For Input As #5
Do While Not EOF(5)
   Line Input #5, Buff1
   Buff1 = Buff1 & vbCrLf
   Buff2 = Buff2 + Buff1
 Loop
 Text2.Text = Buff2
 Close #5

Lineを消したりしてみても変化はありませんでした、、

編集 削除

---

2重書き込みしてしまいました、お手数おかけしますが、
削除のほうおねがいしますヽ(;´д｀)ノ

確認して、書き込まれてなかったから書いたハズなのになあ、、

編集 削除

---

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文

←解決時は質問者本人がここをチェックしてください。