sehe ich direkt keinen Fehler:
Aber falls ihn das chr(xx) von einem Integer stören sollte, probier das mal, um zu sehen
Code:
Dim Temp As byte
....
....
      Open "comd.7:9600,8,n,1" For Output As #2 
    For Shoulder_curr_pos = Shoulder_curr_pos To Servo_goto_pos Step Schritt 
         TEMP = shoulder_curr_pos
         Print #2 , "#s" ; Chr(1) ; Chr(TEMP)
Der Bascom hat's nicht so mit verdeckten Typenänderungen
Is'n Versuch, du kannst für alle Servos das gleiche TEMP nehmen.