Transfer Data To Web Form From Framed Site

The following code works great:

Sub send_to_UCC()
Dim upcCode
Dim myTextField As Object
upcCode = "0001234512345"
Set appIE = CreateObject("INTERNETEXPLORER.APPLICATION")
appIE.navigate "http://directory.gs1.org/gtin"
appIE.Visible = True
Do While appIE.busy
DoEvents
Loop
With appIE
Set myTextField = .Document.all.Item("queryByGtin_key")
myTextField.Value = upcCode
End With
Set myTextField = Nothing
End Sub...........................

Everything is the same except the URL and the textbox name.