Seu image.save() reduz a qualidade da imagem (se salva como Jpeg) para o nível de compactação padrão de cerca de 75%.
Consulte este artigo do MSDN sobre como aumentar esse nível de qualidade, quando você chama Save passando myEncoderParameters, contendo um nível de qualidade em um nível muito mais alto (digamos 90%)
http://msdn.microsoft.com /en-us/library/system.drawing.imaging.encoder.quality.aspx
Ou veja o código (não testado) abaixo, que deve resolver o problema
' 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)
