Dim ara, aranan As String
Dim ilk, son, deg5
ara = TextBox1.Text
deg1 = deg5 & ara
aranan = "<cite>"
ilk = InStr(1, deg5, aranan) + Len(aranan)
If ilk <> Len(aranan) Then
son = InStr(ilk, deg5, "/") - ilk
ListBox1.Items.Add(Mid(deg5, ilk, son))
Bu şekilde denerminiz
Bizim için zor diye bir şey yoktur, imkansızsa zaman alır...