Internet – IE object to manipulate windows of a site

I am not managing to convert an open Internet Explorer window into an object, in order to manipulate the elements of your form.
I have a routine that shows me the open windows, but I can not make the last window become an object.

Example:
seeJanelas sub ()
Dim objShell As Object, objWindow As Object, objItem As Object
Dim Seq As Long, As Long line
Dim mtz As Variant
Dim pSomenteIE As Boolean
& # 39; GoTo final
Set objShell = CreateObject ("Shell.Application")
Set objWindow = objShell.Windows ()

If objWindow.Count = 0 Then GoTo EXIT
ReDim mtz (1 To 5, 1 To 1)
On Error Resume Next
For Each objItem In objWindow
seq = seq + 1
If pSomenteIE = True & objItem.Name <> "Internet Explorer" Then GoTo jumps
line = line + 1
ReDim Preserve mtz (1 To 5, 1 To line)
mtz (1, line) = seq - 1
mtz (2, line) = objItem.Name
If objItem.Name <> "Internet Explorer" Then GoTo jumps
mtz (3, line) = objItem.Document.Location
mtz (4, line) = objItem.Document.title
mtz (5, line) = objItem.Type

skip:
following

If IsEmpty (mtz) then
MsgBox "empty matrix"
other
Dim x As Long, and As Long
x = UBound (mtz, 2)
For y = 1 To x
Debug.Print mtz (1, y) & ";" & mtz (2, y) & ";" & mtz (3, y)
following
End If

GO OUT:

& # 39; Order:

End Sub

In this case, I needed to make the index window 2 "2, Internet Explorer, http: //www.msn.com/es-es/? Ocid = iehp" transform into an Ie object