Sub ScaleImage(imageFile As String, imageFileOut As String)
    ' Create objects and open input images
  Dim Ci As New CiServer
  Dim Tools As CiTools: Set Tools = Ci.CreateTools
  Tools.Image.Open imageFile
    ' Do processing
  Tools.ScaleImage 0.5, 0.5
    ' Save results
  Tools.Image.SaveAs imageFileOut, ciEXT
End Sub