Поместить определенную часть веб-страницы в label

Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        Dim SiteStr As String = (New System.Net.WebClient).DownloadString("Адрес страницы") 'Получаем код страницы.
        Dim SiteTitle As String
        SiteTitle = GetPars(SiteStr, "<Тег>", "</Тег>") 'Получаем текст между тегами.
        MsgBox(SiteTitle)
    End Sub
 
    
    Public Function GetPars(ByRef strSource As String, ByRef strStart As String, ByRef strEnd As String, Optional ByRef startPos As Integer = 0) As String
        Dim iPos As Integer, iEnd As Integer, lenStart As Integer = strStart.Length
        Dim strResult As String
        strResult = String.Empty
        iPos = strSource.IndexOf(strStart, startPos)
        iEnd = strSource.IndexOf(strEnd, iPos + lenStart)
        If iPos <> -1 AndAlso iEnd <> -1 Then
            strResult = strSource.Substring(iPos + lenStart, iEnd - (iPos + lenStart))
        End If
        Return strResult
    End Function

Public Function EncodingUTF8toWin1251(ByRef source As String) As String
        Dim code As System.Text.Encoding = System.Text.Encoding.GetEncoding("windows-1251")
        Dim dstByte() As Byte = System.Text.Encoding.Convert(System.Text.Encoding.GetEncoding("utf-8"), code, code.GetBytes(source))
        Return code.GetString(dstByte)
    End Function