ник: snipe
скорее всего так
у формы есть событие таймер
вот в процедуру и запихать это
выставить интервал таймера в милисекундах
и переделать немного код
Dim statusint As Variant
statusint = Inp(889)
If statusint = 95 Then
RF = RF + StepNet
Call To_TRX
end if