Dim req As WebRequest = WebRequest.Create("https://www.wikipedia.org/")
Dim resp As HttpWebResponse = CType(req.GetResponse(), HttpWebResponse)
Dim dataS As Stream = resp.GetResponseStream()
Dim reader As New StreamReader(dataS)
Dim data As String = reader.ReadLine()
while (data.Contains("<strong") = false)
Dim dataReader As New StringReader(data)
Dim first As Integer = data.IndexOf("""")
Dim updated As String = data.substring(first+1)
Console.WriteLine(updated)
Dim final As String = updated.substring(0, updated.IndexOf(""""))