Dim websites2 As New List(Of String)
 
    Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button7.Click
        websites2.Add(TextBox5.Text)
        For Each item As String In websites2
            MessageBox.Show(item)
        Next
    End Sub

fg viperbone