Private Sub Receive()
        Dim ByteBuffer(0) As Byte
        Do
            Client.GetStream.Read(ByteBuffer, 0, ByteBuffer.Length)
            StringBuffer &= System.Text.Encoding.Default.GetString(ByteBuffer)
            If StringBuffer.Substring(StringBuffer.Length - 1) = ("#") Then
                Formverweis.Invoke(Received, StringBuffer.Substring(0, _
                  StringBuffer.Length - 1))
                StringBuffer = ""
            End If
        Loop
    End Sub