skip the screen

Hi
i am a new user . i tried to capture the informaiton with the particular criteria.
but t capture everyhting
here is the code.

[sup]
MyScreen.Moveto 2, 40
NotLastPage = true
If Not MyScreen.Search("END OF REPORT") Is Nothing Then _
NotLastPage = False
Do While MyScreen.Search("END OF REPORT").Value = ""

If Not MyScreen.Search("<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<") Is Nothing Then _
NotLastPage = True

If Not MyScreen.Search("END OF REPORT") Is Nothing Then _
NotLastPage = False
NotFirstPage = true
if MyScreen.Search("CIND/CURCODE NOT MATCHED") Is Nothing Then _
FirstPage = False
MyScreen.Sendkeys("<PF8>")
MyScreen.Moveto 2, 40
MyScreen.WaitHostQuiet (g_hostsettletime)
MyScreen.Putstring ("11" + " ")
MyScreen.SendKeys ("<Pf11>")
MyScreen.WaitHostQuiet (g_hostsettletime)
for i = 14 to 27 ' compare the mastamout and transaction amout start from 14 to 27'
' some screen has empty it needs to skip but it goes every page and check 14 to 27'
Amtcheck1 = Trim(MyScreen.GetString(i, 102, 13))
Amtcheck = Trim(MyScreen.GetString(i, 120, 13))
if Amtcheck1 <> Amtcheck or Amtcheck <> "" and Amtcheck1 = "" then
Print #1, MyScreen.Area(06,34,06,72)
Print #1, " BR ORG ACCT SUB PROD CST PROJECT CIND CPTY CURR ERROR MESSAGE MAST AMT JHST AMT"
Check1 = MyScreen.GetString(08,08,08,5)
Print #1, "For Corporation:"+ Check1
Print #1, MyScreen.Area(i, 2, i, 122)
PRINT #1, ""+Chr$(13) + Chr$(10)+"";
PRINT #1, ""+Chr$(13) + Chr$(10)+"";
pause 1
end if
next i
MyScreen.SendKeys ("<Pf8>")

NotLastPage = true
MyScreen.WaitHostQuiet (g_HostSettleTime)

Loop
[/sup]