How can I extract URL in website with begin of https://edge

See more:

VB6

VB

VB12

Hello, guy. I want your help to check this code below, I try to create a program which can help me to extract the URL in any website which has URL begin with "https://edge" and end of URL must to "playlist.m3u8". but the code i do is not working, i try to find solution many website but no one can do it. please share me if you know how to do it.

What I have tried:

Imports System.IO
Imports System.Net
Imports System.Text.RegularExpressions

Public Class Form1
    Private requestweb As HttpWebRequest
    Private responseWeb As HttpWebResponse
    Private Sub btnFind_Click(sender As Object, e As EventArgs) Handles btnFind.Click
        Dim WebSource As String
        Dim objStreamReader As StreamReader = Nothing

        requestweb = CType(WebRequest.Create(txtURL.Text), HttpWebRequest)
        With requestweb
            .UserAgent = "Mozilla/4.0 (compatible; MSIE 6.0b; Windows NT 5.1)"
            .Method = "GET"
            .Timeout = 10000
        End With

        Try
            responseWeb = CType(requestweb.GetResponse(), HttpWebResponse)
        Catch ex As Exception
            MessageBox.Show("Error retrieving the Web page " &
                "you requested. Please check the entered Url and your internet connection")
            Exit Sub
        End Try

        If Not IsNothing(responseWeb.GetResponseStream()) Then
            Try
                objStreamReader = New StreamReader(responseWeb.GetResponseStream())
                WebSource = objStreamReader.ReadToEnd
            Catch ex As Exception
                MessageBox.Show(ex.Message)
                Exit Sub
            Finally
                responseWeb.Close()
                objStreamReader.Close()
            End Try

        End If
        lsvlinks.Items.Clear()
        Dim strReg As String


'here is code which not working 

        strReg = "<a\s+href\s*=\s*""https://edge""?>(.+)</a>"

'-----------------------------
        Dim reg As New Regex(strReg, RegexOptions.IgnoreCase)
#Disable Warning BC42104 ' Variable is used before it has been assigned a value
        Dim m As Match = reg.Match(input:=WebSource)
#Enable Warning BC42104 ' Variable is used before it has been assigned a value
        While m.Success
            Dim lvi As New ListViewItem()
            lvi.Text = m.Groups(1).Value
            lsvlinks.Items.Add(lvi)
            m = m.NextMatch()
        End While
    End Sub