Pop up Window

[a]

i'm using this code
Private WithEvents IE As InternetExplorer

Private Sub Command0_Click()
Set IE = CreateObject("InternetExplorer.Application")
End If
WB.Visible = True
With IE
..navigate "web site for searching"
End With
End sub

The above code work very good

Here is the problem
..navigate "URL " this is a web site for search ok

when you enter value in text box to search and press search button (all this
step on the web site for search)
what happened another pop up window appear (here is the problem)
this pop up window take a new URL
but this window contain the value I want to pull to access
this pop up you can't access it directly you should use the search form
first and after that the pop up window appear
What should i do
to use this code:
me.YourTextBoxOnAccessForm=IE.Document.all("UserNameControl").Value