Einfache Lösung:

Im Interrupt Flag setzen z.B. War_drin=1


in der Sub 'öfter' abfragen

if War_Drin=1 then
War_drin=0
exit Sub
end if

und in der Haubtschleife entsprechend hin wo Du willst.

Gento