Load the Web Application

Public Function OpenWeb (SampleUrl)
Dim SampleUrl = http://mdvdebugger.blogspot.com
SystemUtil. Run SampleUrl
If (Browser(“title:=Automation Testing, QTP”).Exist(0)) Then
SampleUrl = True
Reporter.reportevent micPass” Page is loaded”
Else
SampleUrl = False
Reporter.reportevent micPass” Page is not loaded”
End if
End Function