Problem with ResizeWidthRatio

[petermeach]

I seem to have a problem with the following code when the original image was a jpg from an iPhone

Imaging.CreateImageFromFile("c:\overdrive\page" & jImageCounter & ".tif")
If Imaging.ResizeWidthRatio(maxWidth, 3) = 0 Then
Imaging.SaveAsTIFF("c:\overdrive\resize.tif")
End If

The jpg is converted to a tif. If it is wide I want to resize it to a max width of 1000 pixels. If I do this, the saved tiff is a mirror image. If I skip the resize line, resize.tif is not mirrored. in this case the sample picture is small so i have resized it anyway just to show the mirroring.
Before and after images attached.

I'd be grateful for help on this. Thanks

[petermeach]

Is there any resolution to this? It's a bit of a problem. Save as pdf does compress the file down nicely, a 4Mb image to an 800k pdf, but i still have more pixels than i need. if i resize it it halves it again and is still perfectly readable