vb.net text çekme

basit aslında
yazıları çekmek için 1 textbox 1 tane buton 1 adet webbrowser ekleyiniz form'A
webbrowser error script'i false yapın.
ardından url kısmına bu chat yerini atın
daha sonra buton'a
textbox1.text = webbrowser1.********.all("ys-post-1").innertext

ancak sitede bir sorun var postlar 1-2-3-4-5-6-7-8-9 diye gitmekte yani burada tam bir text yerine pek çok text kullanılıp değer atanmaya ayarlanmış.
bu kodla yazıları çekersin ama tam olarak bilemem buton dışında anında güncelleme için timer interval açıp 100 yada 200 gibi interval ile start verirsiniz timer click'e verdiğim kodu girersiniz sürekli güncelleyip text'deki yazıyı kontrol eder ve textbox'a aktarım yapar.

Kolay gelsin.

Not : ******* olan D o c u m e n t 'Dir.

Güncelll

Dim postSayi As Integer = 2
Dim theElement As HtmlElementCollection = WebBrowser1.********.GetElementsByTagName("div")
For Each curElement As HtmlElement In theElement
If curElement.GetAttribute("id") = "ys-post-" & postSayi Then
ListBox1.Items.Add(curElement.InnerText)
TextBox1.Text = TextBox1.Text & curElement.InnerText
postSayi += 1
End If

Next

Teşşekür Ederim