Mein QuellCode aus Visual Basic

'Öffnen des ComPorts
Private Sub Form_Load()
Open "COM1:9600,8,N,1" For Output As #1
i = 0
End Sub

'In einem Interval alle Positionen an Servo 1 übertragen
Private Sub Timer1_Timer()
i = i + 1
If i = 256 Then i = 0
Print #1, "#s"; Chr(1); Chr(i)
Form1.Caption = i
End Sub

--> Nichts passiert!?
Was kann da noch falsch sein?
Hatt jemand ein Programm mit dem ich das mal testen kann??
Sind den die 22µF richtig?

Zur Hardware:

Ich verwende MAX232CPN an RNS1 mit Topline ES-05 Servo, siehe auch die Schaltung von Roboterhardware.de