調べても地味に見つからなかったので、Magick.netで画像のクオリティを変更する方法を記載しておく。
Form.vb
Dim img As Object
img = New ImageMagick.MagickImage("C:\image.jpg")
img.Quality = 100 '0(低画質) - 100(高画質) で指定
img.Write("C:\image_converted.jpg") '変換後のファイルを書きだし
.Qualityに数値指定するだけ。