vb script OCR

why isn't this working, am i doing somthing wrong?

VB Code:

dim miDoc
miDoc = CreateObject("MODI.Document")
miDoc.Create "C:\ocr.tif"
miDoc.OCR
miDoc.SAVE
Dim strRecText
strRecText = ""
dim imageCounter
For imageCounter = 0 To (miDoc.Images.Count - 1)
strRecText = strRecText & miDoc.Images(imageCounter).Layout.Text
Next
msgbox strRecText
miDoc.Close