Dim documentToConvert : documentToConvert="d:\test.tif"

  Dim DC : Set DC = CreateObject("Neevia.docCreator")

  Dim RVal : RVal = DC.ConvertImage(documentToConvert, documentToConvert & ".pdf")
  Set DC = Nothing

  If (RVal <> 0) Then 
    MsgBox "Error converting image !!!"
  else
    MsgBox "Done converting!!!"
  End If