https://twitter.com/chomado/status/464381263978041345 の指摘に従って実装してみた。

hoge.vb

Dim い As Integer

For い = 0 To 5
    'ループ内の処理
Next い

Dim ろ As Integer

For ろ = 0 To 5
    'ループ内の処理
Next ろ

Dim は As Integer

For は = 0 To 5
    'ループ内の処理
Next は