Simple Loop problem

[tarctor]

Private Sub cmdret_Click()
Dim n As Integer
n = "1"
myurl = "http://www.site.com/cgi-bin/locate.pl?id=" & n

Do While n < 1000
   n = n + 1


WebBrowser1.Navigate2 (myurl)
Inet1.Protocol = icHTTP
Inet1.Execute CStr(txturl), "GET /"

While Inet1.StillExecuting
DoEvents

Wend
call command1
Loop
'MsgBox "Done"
End Sub

What I am trying to do is loop through and change "n" each time until "n" reaches 1000. Must call command 1 each time "n" changes. Any help is appreciated.