Passing Object to Function

[Mozza]

I need to pass an object to a function and wait until it no longer exists - as it is not saved until the popup has disappeared.
I need to set a time out for the popup displaying to stop looking after a certain time
This is required on many different panels / popup, so I want the same code to work just based on a same browser, different page, different heading on popup

I have tried the following but it does not reset the .exist line, so the value never changes to false

Code:

Function waitToBeSaved(strObject) – being Browser(BrowserName).Page(PageName). object (popup header) Dim strObject 'to hold page object description Dim intCounter 'to store loop counter value Dim strFinished 'to store page existence value intCounter = 0 strFinished = strObject.Exist Do While (intCounter <10) OR (strFinished = True) strFinished = strObject.Exist(1) intCounter = intCounter+1 Loop If intCounter = 10 Then Reporter.ReportEvent micFail........ Exit Test End If End Function

This works fine outside of the function
Do I need to Set the object??

[Mozza]

This solution is working - worked it out myself.

Code:

'Wait for save to finish WaitForSave(Browser("PDCS").Page("A").WebElement("Popup")) Function WaitForSave(theObj) timeSpent = 0 waitTimeOut = 20 Set tempObj = theObj 'example: (Browser("PDCS").Page("A").WebElement("Popup")) Do While tempObj.Exist(0) If timespent = waitTimeOut Then Reporter.ReportEvent micFail, "Wait for Save", "Waiting for save to finalise and has not completed in " & timeSpent & " seconds. Need to check why it has not saved. Test will stop" ExitTest Else Wait 1 timeSpent = timeSpent + 1 End If Loop End Function

[Mozza]

Just in case anyone is looking - this also works 
This is waiting for the object to appear and waits till it does, or drops out if it doesn't appear after a certain time

Function WaitForResult(theObj)
 timeSpent = 0
 waitTimeOut = 20
 Set tempObj = theObj 'example: Browser("PD").Page("SearchPage").WebTable("Results Table")
 Do While tempObj.Exist(0) = False
  If timespent = waitTimeOut Then
   Reporter.ReportEvent micFail, "Wait for Result", "Waiting for a result to occur and has not appeared in " & timeSpent & " seconds. Need to check why it has not saved. Test will stop"
         ExitTest
     Else
      Wait 1
    timeSpent = timeSpent + 1
  End If
 Loop
End Function