ループまとめ

すぐ忘れてしまうのでまとめておく
VB6でプログラミングすることはないのでVBAでメモ
後判定はほとんど使わないので放置

カウンタループ

Dim cnt As Integer
For cnt = 0 To 5 Step 1

    ' 処理
    Exit For

Next

以下は一度も処理が実行されない

Dim cnt As Integer
For cnt = 6 To 5 Step 1

    ' 処理
    Exit For

Next

オブジェクトのコレクション

Dim str As String
For Each str In Strings

    ' 処理
    Exit For

Next

無限ループ

While True

    ' 条件判断

    If True Then Exit While
    ' 処理

Wend