Global numPass=1
;Начало главного цикла
Select numPass
Case 1:
numPass=2 ;
;Здесь вызываем функции
Case 2:
numPass=3 ;
;Здесь вызываем функции
Case 3:
numPass=1 ;
;Здесь вызываем функции
End Select
;Конец главного цикла
Вот так можно делать проверки каждый третий проход цикла.
__________________
AMD Sempron(tm) 1.41Ггц, 1024МБ ОЗУ, GeForce 6200 128МБ, WinXP SP3.