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

名前

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

本文 Do Until EOF(1) Line Input #1, S If Left(S, 3) = "SET" Then i = InStr(S, "=") + 1 S2 = S2 & Mid(S, i) Exit Do '☆ これを追加 End If Loop