Działa Twoje makro?? Pozwolę sobie zamieścić swoje makro:).

Dim x,y,z,i,d
a:
d=getoemled(821)

If d=-1 Then

Do While i<7

i=i+1

dooembutton(109)
Loop
message("Praca przy ograniczonej prędkości")
Else

If i=7 Then
dooembutton(1014)
i=0
message("Praca przy normalnej prędkości")
Else

End If
End If

GoTo a