help about CreateObject

[stevol]

mmhhh... I have found the solution for my answer, that is:

Code:

Function Open()
  dim objexplorer
  set objexplorer     = CreateObject("InternetExplorer.Application")
  objexplorer.visible = true
  objexplorer.navigate "http://www.google.it"
  set Open = objexplorer
  Set objexplorer = nothing
End Function

Dim IEexp, testo
set IEexp = Open()
testo = IEexp.statustext
msgbox testo

Now my problems continue with QTP, about relationships. My goal is something similar to:
Browser("...").Page("...").WebEdit("...").Set "xyz"
but without objects in the O.R.  I obtain error with this code:

Code:

dim objexplorer, pagina, pagina2
set objexplorer     = CreateObject("InternetExplorer.Application")
objexplorer.visible = true
objexplorer.navigate "http://www.google.it"
Set pagina = description.Create()
pagina("Class Name").value= "Page"
Set pagina2= objexplorer.childobjects(pagina)
...

Where do I wrong?
thanks for every help

PS: the link "https://www.learnqtp.com/descriptive-programming-simplified/" is useful but not still sufficient exhaustive for my lacks :-)