そういうのだったら dim stg[9]'←8ステージなのに9としているところに注意 'stg[0]は欠番 stg[1]=8 stg[2]=10 stg[3]=8 stg[4]=9 : と設定し、現在のステージナンバーをnscと設定した時 for i=1 to stg[nsc] 処理 next とすりゃいいですよ あと、0からしか数えなければならないというわけでもなく、１から数えても問題ないです 上のコードはそんな感じで組んでます