If WebBrowser1.IsBusy Then
Else
Dim Request As HttpWebRequest = HttpWebRequest.Create(Label4.Text)
Dim Response As HttpWebResponse = Request.GetResponse()
Dim reader As StreamReader = New StreamReader(Response.GetResponseStream)
Dim httpContent As String
httpContent = reader.ReadToEnd
Dim newsfeed As String
newsfeed = GetStringBetween(WebBrowser1.DocumentText, "<a href='/forum/", "' title='View result'")
Label1.Text = newsfeed