Visual Basic - Ayuda webbrowser

Hola, estoy haciendo un programa que firmas fotologs de www.fotolog.com automaticamente, el programa anda de 10 , pero el problema surge cuando lo automatizo.
Es como que sucede muy rapido y no llega a cargar la pagina aunque le ponga esto:

Do While WebBrowser1.Busy = True
DoEvents
Loop
___________________________________________________________________________

Private Sub Form_Load()
On Error Resume Next
Form1.Show
Open "D:Nueva carpetaMati.txt" For Input As #1
WebBrowser1.Navigate "http://account.fotolog.com/login"
Do While WebBrowser1.Busy = True
DoEvents
Loop
Form1.Caption = Form1.Caption & "1"
WebBrowser1.Document.Forms(1).u_name.Value = "matiasberetta"
WebBrowser1.Document.Forms(1).p_word.Value = "21may92"
WebBrowser1.Document.Forms(1).submit.Click
Do While WebBrowser1.Busy = True
DoEvents
Loop
Form1.Caption = Form1.Caption & "2"
Do While EOF(1) = False
Line Input #1, A
WebBrowser1.Navigate "http://www.fotolog.com/" & A
Do While WebBrowser1.Busy = True
DoEvents
Loop
Form1.Caption = Form1.Caption & "3"
WebBrowser1.Document.Forms(1).message.Value = "Matías Beretta"
WebBrowser1.Document.Forms(1).submit.Click
Do While WebBrowser1.Busy = True
DoEvents
Loop
Form1.Caption = Form1.Caption & "4"
Loop
WebBrowser1.Navigate "http://account.fotolog.com/logout"
Do While WebBrowser1.Busy = True
DoEvents
Loop
Form1.Caption = Form1.Caption & "5"
Close #1
End Sub

Proba remplazar la iteración "Do While WebBrowser1.Busy = True" por el evento
"WebBrowser1_DocumentComplete" que se invoca cuando "WebBrowser1.Navigate" finaliza de cargar