search text in VB

[Eddiehui]

I have written a program to search the word "Cash" in a report (CR8.5 and VB6). I used the findtext function, but it return false all the time. Please help!! Thanks!!

Dim app As CRAXDDRT.Application
Dim rpt As CRAXDDRT.Report
Dim pg As CRAXDDRT.PageGenerator
Dim ary() As Integer

ReDim ary(-1 To -1)
Set app = New CRAXDDRT.Application
Set rpt = app.OpenReport("C:\a.rpt&quot
Set pg = rpt.PageEngine.CreatePageGenerator(ary)
MsgBox pg.FindText("Cash", crForward, 1)