System.ArgumentOutOfRangeException ved brug af Socket.Receive

Jeg bruger følgende kode til at modtage objecter, men det virker ikke helt for mig...

Dim received(1024) As Byte
While True
  Dim bytesReceived As Integer = sock.Receive(received, sock.Available, SocketFlags.None)
  Try
    If bytesReceived > 0 Then
      Dim ao As AsteriskObject = ByteArray2Object(received)
      eventHandler.recieveAsteriskObjectEvent(ao)
    End If
  Catch ex As Exception
    MsgBox("Serialization Error occured! :" + ex.Message)
  End Try
End While

når programmet kører får jeg følgende exception:

An unhandled exception of type 'System.ArgumentOutOfRangeException' occurred in system.dll

Additional information: Det angivne argument lå uden for det gyldige værdiområde.

Hvis jeg udskriver retur-værdien af socket.Send(...) ligger den mellem 200 - 400, altså ikke i nærheden af 1024.

Jeg har brugt ghorfraq's kode fra http://eksperten.dk/spm/407819 og skrevet det om til vb .net...