Private Declare Function SetTimer Lib "user32" ( .... ) As Long
Private Declare Function KillTimer Lib "user32" ( .... ) As Long
 
private hTimer as Long
....
 
sub MakroProzedur (...)
...
   While hTim <> 0: DoEvents: Wend  'nicht schön aber selten
   If (hSOnMatch > 0) Then hTimer = SetTimer(0, 0, 1, hSOnMatch) 
   While hTim <> 0: DoEvents: Wend  'nicht schön aber selten
...
end sub
 
sub zielProzedur( ... )
   Call KillTimer(0, hTimer)
end sub