Activate Web Page For Entry

I have created a spreadsheet and a VBA form to save this information for each individual. As it stands right now, you enter the information it checks to see if it needs to create a new sheet and enters all the data on the first available line. That part is working perfectly.

What I need now is once it has put the information in the correct sheet, i need to bring the webpage to the foreground and input the data stored on the webpage. When I tried AppActivate it only activates the window, but it doesn't bring it to the foreground so no information is every entered.

I tried Application.Sendkeys ("% R") to restore it, but it is very hit and miss.

The title of this webpage is "Verizon Sell One More [Make a Referral] - Microsoft Internet Explorer provided by Verizon"


Dim ie As Object

Set ie = CreateObject("InternetExplorer.Application")
With ie
.Visible = True
.Navigate "http://sellonemore.verizon.com/MakeReferral/ReferralPreValidate.asp"
Do Until .ReadyState = 4: DoEvents: Loop
End With ..................................