Imports System

Imports System.IO

Imports System.Net

Public Module Module1

    Public Sub Main()

        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 i As Integer = 0

        Dim data As String = reader.ReadLine()

        while (data.Contains("<strong") = false)

            data = reader.ReadLine()

        end while

        Console.WriteLine(data)

        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(""""))

        Console.WriteLine(final)

    End Sub

End Module

​

​