Sniper36, к сожелению каспер на моём компе её подозревает (приходится гасить каспера), я то знаю что это он тупит но принять к сведению я думаю стоит.
За рисование 5 с +

p.s всю схему можно упростить до Edit->VBScript->Memo, итого кол-во компонетов 3