НЕ могу понять как создать.
Идет цикл например

Do while ........
.....
if ......=....... then
exit do

elseif.......
....
....endif
.....
loop

в середине нужно задать паузу, которая не грузила бы систему, то есть пауза например в 1 минуту, и если в этой паузе происходит какое либо действие, выходит из цикла???!!!

И второе как сделать, то бы данные обновлялись:
Например идет Sub()

msgbox("данные")
......
.....
.....
следовательно нужно обновлять каждую секунду параметр msgbox но что бы не грузить опять же систему!

думаю и правду не смог объяснить, еще раз попробую!

есть цикл

Public sub test()
dim...... 'тип данных
dim....'тип данных
......'значение данных
.....'значение данных
Do 'начало цикла без условия
.....
if TIME=15:40 then ' условие при котором цикл закончиться
exit do 'конец цикла без условия
Msgbox "время равно"
elseif.......
....
....endif
.....
loop 'продолжение цикла без условия
end sub()

я просто не знаю как придумать или как сделать, так что бы когда начинается цикл, цикл делал паузу например на минуту, при этом систему не грузил и форма доступна, после чего сверял условие при котором цикл закончиться, например это может быть время, то если если например время системное 15:40 и мне нужно 15:40 он выходит из цикла и появляется табличка.

я нашел выход такой


.............................
Start = Timer
Do While Timer < Start + 10
DoEvents
.............................
Loop
.............................