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

さもらい 2005-01-14 23:59:46 No: 118907

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を消したりしてみても変化はありませんでした、、

さもらい 2005-01-15 00:02:08 No: 118908

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

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