Galkov-у В этом цикле за 10 мксек ~ 1-2 оборота; все остальное висит:
While ВходLTP(1) = ВходLTP(2)
......ВходLTP(1) = Inp(&H379)
Wend
Процессор P-IY, 2,4 ГГц (200МГц*12), Windows XP, приложение Excel, язык - VBA, анализ проскоков не делал, работает и слава богу.