ループを抜けるコードは？ (ID:122118)

名前

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

本文 下のような形でファイルを読み込んで、 必要なものだけをS2に格納しています。 この記述だとファイルを全て読みにいくので、 これを見つけ終わったら、ループを 抜けるコードを書きたいのですが、どのようにしたらよいでしょうか？ SETから始まる行は3行しかありません。 宜しくお願いします。 Do Until EOF(1) Line Input #1, S If Left(S, 3) = "SET" Then i = InStr(S, "=") + 1 S2 = S2 & Mid(S, i) End If Loop