dim Summe as integer
 
private sub winsock1_dataarrival(ByVal bytesTotal as Long)
{
 if ÜbertragungBlock1 = true then
  Summe = 0
  doevents
 end if
 
winsock1.getData data
 
Summe = Summe + CInt(Trim(Mid$(data, 1, 4)))
doevents
}