Daten korrekt einlesen mit MID und VB6

Hallo,

ich programmiere mit VB6 und habe nun folgendes Problem: Mein Controller sendet zB folgendes 21456 dann wartet er 1 sekunde und dann wird dies gesendet 26456
nun soll das VB-Programm immer das 2.zeichen einlesen und in einer textbox anzeigen. Mein Code sieht so aus. Leider wird das Zeichen nicht aktualisiert.


Private Sub MSComm1_OnComm()
Select Case MSComm1.CommEvent
Case comOverrun: StatusBar1.Panels(1).Text = "Status: Störung O.V"
Case comRxOver: StatusBar1.Panels(1).Text = "Status: Störung R.O"
Case comEvReceive: Me.Text3 = Me.Text3 + MSComm1.Input
End Select
eingang = Text3
füllstand = Mid(eingang, 2, 1)
text5=eingang
end sub

in text5 müsste dann bei folgendem text dies stehen:
Text: 21456 es müsste also 1 in der text5-box stehen
dies macht es auch
wird dann aber ein neuer text gesendet
text: 26456 dann müsste 6 in text5 stehen --> leider steht aber immer noch die 1 da.

Wie bewältige ich dieses Problem?????

Gruß MaX