Photoshop を直接コントロールできるんだったらそれでもいいだろって気持ちも。
参照設定で "Adobe Photoshop 8.0 Object Library" を参照。
Dim ps  As Photoshop.Application
Dim src As Photoshop.Document

' JPEG 保存時のオプションを設定 '
Dim saveOption As New Photoshop.JPEGSaveOptions
With saveOption
    .EmbedColorProfile = True
    .FormatOptions = psStandardBaseline
    .Matte = psNoMatte
    .Quality = 8
End With

Set ps = New Photoshop.Application
Set src = ps.Open("source.jpg")

' オリジナル画像の複製を作成し、 '
' 解像度を 144dpi、バイキュービックで再サンプリングを行う。 '
Dim dest As Photoshop.Document
Set dest = src.Duplicate
dest.ResizeImage Resolution:=144, ResampleMethod:=Photoshop.PsResampleMethod.psBicubic

' 保存する '
dest.SaveAs "dest.jpg", saveOption
dest.Close
src.Close
ps.Quit