Help Please

Can anyone help me please.

I have the following code in

t Code:

Private Sub Form_Load()
FileName = App.Path & "/urls.txt"
Dim Favs
Open FileName For Input As #1
Do While Not EOF(1)
Line Input #1, Favs
List1.AddItem Favs
Loop
Close #1
End Sub

All the urls that are saved in to urls.txt are displayed on the listbox how do i get it so when someone clickson the url it then takes them to that page on my web browser its going to be like favs soon can anyone help please.

Code:

---

Private Sub List1_Click()
  If List1.ListIndex >=0 Then
      Webbrowser1.Navigate List1.List(List1.ListIndex)      'Or Shell the browser
  End If
End Sub

---

How would i delete from the favs not them all just one url at a time.?

You will have to iterate from end of list to listindex=0 to avoid problems with indice shifts due to removal of list elements.