Hi, wenn mich nicht alles teuscht arbeitet der befehl Servo(1)=J mit einem Byte-Wert, du hast aber ne Word-Variable declariert. Versuchs mal mit Dim J As Byte passt von der Größe her doch auch noch

Mfg Kalle