I am a student at ITT tech and am creating an internet explorer for my personal use and i cannot get the favorites list to work on several aspects. I want to save the favorites added in to a text document and load it back into the list at startup. I also need to learn the code to visit the URL when you double click it on the favorites list in a listbox.My code is as follows.

Private Sub cmdClosefav_Click()
Dim x As Boolean
x = cmdClosefav
If x = True Then
Me.cmdFavorites.Visible = False
Me.List1.Visible = False
Me.lblFavorites.Visible = False
Me.cmdClosefav.Visible = False
End If
End Sub

Private Sub cmdFav_Click()
Dim x As Boolean
x = cmdFav
If x = True Then
Me.cmdFavorites.Visible = True
Me.List1.Visible = True
Me.lblFavorites.Visible = True
Me.cmdClosefav.Visible = True
End If

End Sub

Private Sub cmdFavorites_Click()
List1.AddItem Me.txtNavbar.Text
End Sub

Private Sub List1_DblClick()
If List1.ListIndex = 1 Then
Me.WebBrowser1.Navigate List1.ListIndex
End If
End Sub

Private Sub cmdFavorites_Click()
List1.AddItem Me.txtNavbar.Text
End Sub

I would appreciate any help..