A dire la verità non ho alcun codice di errore perchè il programma che non accettava l'immagine non è mio, il fornitore mi ha detto che era a causa delle trasparenze dei pxl, ho comunque risolto utilizzando la funzione:
Dim ObjBitmap As New System.Drawing.Bitmap(Application.StartupPath & "\source.jpg")
ObjBitmap.Save(Application.StartupPath & "\dest.jpg", ImageFormat.Jpeg)