Como mandar un mensaje si no se encuentra la credencial

[bk_820609]

Este el codigo que me escanea una credencial de elector......


'Escaneo de la credencial de lector
fileNombre = App.Path & "\Imagenes\Identifica.bmp"


'Si existe el archivo bmp, eliminalo de lo contrario

Set f = New FileSystemObject
If f.FileExists(fileNombre) Then
f.deletefile (fileNombre)
End If



ImgScan1.PageOption = PromptToCreateNewFile
ImgScan1.Image = fileNombre
ImgScan1.ShowSetupBeforeScan = False
ImgScan1.Zoom = 40
ImgScan1.GetPageTypeCompressionType TrueColor24bitRGB

ImgScan1.OpenScanner
ImgScan1.FileType = BMP_Bitmap


ImgScan1.StartScan
ImgScan1.CloseScanner

ImgThumbnail1.Image = fileNombre
ImgScan1.PageOption = CreateNewFile
ImgEdit1.Image = fileNombre
OCRdata

Private Sub OCRdata()


Dim miDoc As MODICtl.Document
Dim miWord As MODICtl.Word
Dim layou As MODICtl.Layout
Set miDoc = New MODICtl.Document


miDoc.Create fileNombre
ImgOcr.Document = miDoc
Screen.MousePointer = vbHourglass
miDoc.OCR
Screen.MousePointer = vbDefault

MsgBox "Para obtener los datos del cliente por favor seleccione los apellidos y nombre en la imagen", vbInformation, "Obtener datos"
Set miDoc = Nothing

End Sub


Y lo que nesecito es que si no esta la credencial en el escaner..me mande un mensaje de "No hay imagen en el escanner".....hice un if con ImgThumbnail1.Image = fileNombre.....pero me marca un error...espero que puedan ayudarme.......Gracias