[RESOLVED] Loop Help - Webbrowser

[-AmaN-]

Hey Im trying to code a loop function but i dont know wat exactly to write in the For and Next Function

Here is i want to do: I have created a prog which autofills the login field and then i want it to navigate to yahoo profile page... i will attach my code so u can better see wat i am trying to do

Private Sub Login_Click()
Dim X As String

X = WEB.Document.All.Item.innerHTML
Debug.Print X

Const READYSTATE_COMPLETE = 4

WEB.Navigate "https://login.yahoo.com/config/login?.src=fpctx&.done=http://www.yahoo.com"

    While WEB.ReadyState <> READYSTATE_COMPLETE
        DoEvents
    Wend

WEB.Document.Forms(0).Item("login").Value = USER
WEB.Document.Forms(0).Item("passwd").Value = PASS
WEB.Document.Forms(0).Item(".save").Click

For i = 1 To WEB.Document
Next
WEB.Navigate "http://edit.yahoo.com/config/eval_profile?.done=http://www.yahoo.com&.scrumb=FRo7lb2f6FB"

End Sub

I didnt know wat to write, so i kinda jus made it up ... i know i need to define i as a Dim function, but wat should it be and also plz help me wid the for and next part coding

[-AmaN-]

nvm got this figured out