Su image.save() reduce la calidad de la imagen (si se guarda como Jpeg) al nivel de compresión predeterminado de alrededor del 75%.
Consulte este artículo de MSDN sobre cómo aumentar este nivel de calidad, cuando llama a Guardar pasando myEncoderParameters, que contiene un nivel de calidad mucho más alto (digamos 90 %)
http://msdn.microsoft.com /en-us/library/system.drawing.imaging.encoder.quality.aspx
O vea el código (no probado) a continuación, eso debería funcionar
' Create a a single encoder parameter envelope
Dim EncoderParameters As New EncoderParameters(1)
' Create and add a single quality parameter to this envelope, specifying 95%
Dim QualityParam As New EncoderParameter(Encoder.Quality, CType(95L, Int32))
EncoderParameters.Param(0) = QualityParam
' Save the image with the encoder param specifying 95% quality
_image.Save(_MemoryStream, _ImageFormat, EncoderParameters)
