テキストボックスから文字列を一行ずつ読み込むには？ (ID:117934)

名前

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

本文 テキストボックスから一行ずつ文字列を読み込みたいのですが、 テキストファイルからなら、 dim str as string Open "テキストファイル名" For Input As #1 Do Input #1, str 'テキストファイルから一行 Loop while EOF(1)=False Close みたいな感じでできたのですが、この場合のテキストファイルではなく、Text1.textやstr2などから一行ずつ読み出したいのですが。どうすればよいのでしょうか。 一行ずつ処理をしたいので、一度にまとめて読み込んでは意味がありません。 よろしくお願いします。 環境はvb6です。