Private Function GetOCRFromImage(ByVal sFileName As String, ByVal nOfPage As _
  Integer) As String
   Dim oImg As MODI.Document
   Dim oLy As MODI.Image
 
   Set oImg = New MODI.Document
   With oImg
      .Create sFileName
      .OCR miLANG_GERMAN, False, False
      Set oLy = .Images(nOfPage)
   End With
 
   GetOCRFromImage = oLy.Layout.Text
 
   Set oLy = Nothing
   Set oImg = Nothing
End Function