How to Create a Loop for Selecting Items in Listbox

Dear All,

I am having a problem with my loop code and i need your help. Basically what i want to do is to that i have a listbox that contains all of the URL that i want to launch at for certain time (lets say 30sec).
=======================
Current Code:
Dim int1 As Integer
Dim int2 As Integer
int2 = Val(URLCount.Text)

Do Until int1 = int2
Me.txturl1.Text = Me.UrlBox1.SelectedItem(int1)
Me.wb1.Navigate(Me.txtUrl1.Text)
//code for delay
int1 = int1 + 1
Loop
=======================
The result is that it will only open the int2 "URL value" and not the rest between int1 to int2.

is there a better way to code this?

Seeking your professional advise.

regards,
John