inputが上手くいかない、、 (ID:118897)

名前

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

本文 VB6で、中身が、、 345 2 1 となっているtest.txtを読み、上記の通りに表示させたいのに、「34521」と一行にしか表示されません、 構文はこのような感じです。 Dim Buff1 As String Dim Buff2 As String Buff2 = "" 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 どうすればよいのでしょうかー？