For Each content In ListBox1.Items
            Dim var As Integer = var + 1
            var = 0
            Dim nextcontent = ListBox1.Items.Item(var)
            WebBrowser1.Navigate("h**p://www.anypage.de" & nextcontent)
            Application.DoEvents()
            ' RichTextBox1.Text = nextcontent (Zeigte mir, was eigentlich in 
            ' meinen Tests in die URL gebunden wurde)
        Next content