Zeichenabfrage vom UART in VB

Hallo,

ich habe folgendes Problem: mein ATmega8 sendet über den UART in einer 
for-Schleife 400 mal das Zeichen 'x', danach wird eine Endzeichen 
gesendet. In Visual Basic frage ich die Zeichen folgendermaßen ab:


Do Until Form1.SerielleSchnittstelle.ReadByte = 3

           Form1.MeldungsListe.Items.Add(Form1.SerielleSchnittstelle.ReadByte)
            i = i + 1
Loop


Es kommt nun aber immer nur die Hälfte der Zeichen an (also wenn ich 400 
sende , hat i den Wert 200, bei 800 werden 400 empfangen). Woran liegt 
das bloß?


VIelen Dank für eure Hilfe!

Gruß Christian