wenn ich auf der Taste bleibe zählte der uC sich zu tote ,
kann man das anders lösen?
Z.B. die Zeit erhöhen. Wie soll es denn am Ende aussehen?
Es gibt sicherlich noch eine andere Lösung, aber die sollte dir auch gefallen.

If A = 110 Then
A = 109
End If
Wenn du If A = 110 Then A = 109 schreibst, kannst du dir ein End If sparen. Somit wird es evtl übersichtlicher. Aber das ist auch immer Geschmackssache.

Servo(1) = A
Könnte auch vor dem Loop stehen. In der Schleife wird ja nicht weiter gemacht als zu prüfen, welcher Taster gedrückt wurde und den Servo zu stellen.
Wenn das stellen am Ende der Schleife steht, sparst du dir etwas Code.
Genau wie das Waitms. Pro Durchlauf kann ja nur ein Taster gedrückt werden.


Do

If Plus = 0 Then Incr A 'erst alle Möglichkeiten abfragen
If Leer = 0 Then A = 75
If Minus = 0 Then Decr A

If A = 110 Then A = 109 'dann Werte begrenzen
If A = 40 Then A = 41

Servo(1) = A 'am besten erst die Aktion und dann die Pause
Waitms 25 'sonst hat der Benutzer ggf das Gefühl es passiert ja garnichts

Loop

So könnte man es auch machen. Das spart noch mehr Code.