For ... Nextでなく、While ... Wend方式で
シグナルの加算でカウントして、
シグナルの判定でループを抜ける