ものすごくアフォな質問で申し訳ないんですが教えてください
For〜Next文内で10回ごとにそれぞれ決まった作業を1回だけさせたい場合、

For I = 1 To 1000
「基本作業」
a = Right(I, 2)
If a = 1 Then
「選択作業１」
ElseIf p = 2 Then
「選択作業２」
↓
以下、０まで選択作業計10個
↓
Else
End If
Next I

こんな感じでいいんでしょうか？
今実行環境が無いのでどなたかアドバイスお願いしますorz