VB.NET - Export To PDF - How to shrink PDF file

Replace     
   Dim ExportedQuality As XlFixedFormatQuality = XlFixedFormatQuality.xlQualityStandard

With

   Dim ExportedQuality As XlFixedFormatQuality = XlFixedFormatQuality.xlQualityMinimum