テキストボックス表示 (ID:127068)

名前

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

本文 1,2,3,4,5,・・・・のようなデータの入ったファイルを選択して開 き、テキストボックスに表示させようと思って、以下のようなプログラムを組みました。 CommonDialog1.ShowOpen strfilename = CommonDialog1.FileName filenum = FreeFile() Open strfilename For Input As filenum Do While Not EOF(filenum) Input #filenum, mystr Text1.Text = mystr Loop Close #filenum しかし、これだと一番最後のデータ（データが1,2,3だと最後の3）しか表示されません。すべて表示させるにはどうすればよいのでしょうか？