For 〜NextとCaseの組合せ
繰り返し作業の中で別の場所を参照したい場合
For a = 25 To 37 Step 2
Select Case a
Case 25: b = 7
Case 27: b = 11
Case 29: b = 15
Case 31: b = 17
Case 33: b = 19
Case 35: b = 21
Case 37: b = 23
End Select