Application.OnTime - вызов процедуры с аргументами - VB

Формулировка задачи:

собственно
а то че-то не получается
имею:
Application.OnTime (Now + TimeValue(tm)), "proced (arg1, arg 2)"
sub proced (arg1, arg2)
bla-bla-bla
end sub
заранее спасибо ответившим
без аргументов все пашет, объявлять аргументы публичными нельзя

Решение задачи: «Application.OnTime - вызов процедуры с аргументами»

textual
                            Листинг программы 
                        
                            proced <font color="teal">"значение трали-вали один"</font>, <font color="teal">"значение трали-вали два"</font>