du musst ja im prinzip in register 0 springen, spped 0 würd ich sagen, dann high byte dann low byte

also:

Code:
Do 

      Posit = 2200                                          ' position (1000 - 2000) 
      Lsb = Low(posit) 
      Msb = High(posit) 
      I2cstart 
      I2cwbyte Servo_adr                                    ' serv CTRL I2C Addr 
      I2cwbyte 0                                          ' servo nr 
      I2cwbyte 0                                          ' speed 
      I2cwbyte Lsb                                          ' lsb of position 
      I2cwbyte Msb                                          ' Msb of position 
      I2cstop 


      Waitms 3000 


      Posit = 800                                           ' position (1000 - 2000) 
      Lsb = Low(posit) 
      Msb = High(posit)
      I2cstart 
      I2cwbyte Servo_adr                                    ' serv CTRL I2C Addr 
      I2cwbyte 0                                          ' servo nr 
      I2cwbyte 0                                          ' speed 
      I2cwbyte Lsb                                          ' lsb of position 
      I2cwbyte Msb                                          ' Msb of position 
      I2cstop 

      Waitms 3000 

Loop
probier das mal das sollte funzen (als do loop schleife)