Dim info as New ReadDataState(client, buffer)

Dim ns as NetworkStream = client.GetStream()
ns.BeginRead(info.ReceiveBuffer, 0, info.ReceiveBuffer.Length, AddressOf _
  OnDataArrival, info)

Dim info As ReadDataState = CType(data.AsyncState, ReadDataState)

Dim ns as NetworkStream = info.client.GetStream()
Dim numBytesRead = ns.EndRead(data)
'Hier testen, ob null Bytes gelesen wurden und Client schließen und aus 
' _clients entfernen.
Dim message as String = SYstem.Text.Encoding.ASCII.GetString( _
  info.ReceiveBuffer, numBytesRead)