checking for Error Dialog Box

[vramu1]

Hi,

I’m working on a finance application. For negative testing I need to pass an invalid date. When I’m passing the invalid date, an Error Dialog Box must popup and I need to close the dialog box and fail the test and continue with next set of test.

I’m checking for Error Dialog Box like this

Code:

Sub Sub pickNcompareValues(objExcel ,intRow,ValuesAddRow)
      If [color=#0000FF]SwfWindow("SuperfitsToolset").Dialog("Error").Exist [/color] Then
    ErrDialogBoxText = SwfWindow("SuperfitsToolset").Dialog("Error").GetVisibleText
          TestStatus = "Fail"
       Exit Sub
       End if
'some
'more
'statements
End Sub

When I’m checking for dialog box in each test run
If Error Dialog Box exists, test run completing very quickly
If Error Dialog Box doesn’t exist, test run taking around 25 seconds to complete (I think it's checking for entire screen)

I’m doing any thing wrong? Is there any other way to check for Error Dialog Box?

Regards
Ram.