Private Sub Receive()
        Do
            Dim ByteBuffer(Client.ReceiveBufferSize()) As Byte
            Client.GetStream.Read(ByteBuffer, 0, Client.ReceiveBufferSize())
            StringBuffer = Encoding.ASCII.GetString(ByteBuffer)
            Do While StringBuffer.Contains("EnDMessaGe")
                BefehlBuffer += StringBuffer.Substring(0, StringBuffer.IndexOf( _
                  "EnDMessaGe"))
                MsgBox(StringBuffer.Substring(0, StringBuffer.IndexOf( _
                "EnDMessaGe")))
                StringBuffer = StringBuffer.Remove(0, StringBuffer.IndexOf( _
                "EnDMessaGe") + 10)
                Formverweis.Invoke(Received, New String(BefehlBuffer))
                BefehlBuffer = ""
            Loop
            BefehlBuffer += StringBuffer
        Loop
    End Sub