TextBox1.Text = WebBrowser1.DocumentText
Dim ara, aranan As String
Dim ilk, son, deg1
ara = TextBox1.Text
deg1 = deg1 & ara
aranan = "<cite>"
ilk = InStr(1, deg1, aranan) + Len(aranan)
If ilk <> Len(aranan) Then
son = InStr(ilk, deg1, "/") - ilk
ListBox1.Items.Add(Mid(deg1, ilk, son))
işte kod bu buradaki değeri lisboxa atıyor ama sadece bir tane atıyor istediğim verdeiğim verilerde textbox1 de kaç tane varsa listxboxa eklesin
#10
