QTP & QC - Code for function to wait till the browser is not busy

'**********************************************************************************************************
'Function Name:   fun_CustomSync()
'Description :        Used to wait till the browser is not busy
'Parameters:        NA
'Return  value       NA
'Registerd To       Browser
'Example:              fun_CustomSync()
'**********************************************************************************************************
Public Function fun_CustomSync(ByRef test_object)
   wait(3)
   Do
  If  test_object.Object.Busy = False Then
   Exit Do
  Else
   wait(2) 
  End If            
   Loop
End Function
RegisterUserFunc "Browser", "fun_CustomSync", "fun_CustomSync"