Try
            Dim ini As Integer = videoPageHtmlSource.IndexOf("<title>", StringComparison.CurrentCultureIgnoreCase)
            Dim fin As Integer = videoPageHtmlSource.IndexOf("</title>", ini, StringComparison.CurrentCultureIgnoreCase)
            If ini < 0 Or fin < 0 Then
                MsgBox("La pagina no contiene tag de título")
            Else
 
                videoTitle = videoPageHtmlSource.Substring(ini + 7, fin - ini - 7)
                'No me reconoce la linea de abajo. Me la marca como error
                videoTitle = System.Web.HttpUtility.HtmlEncode(videoTitle)     
                videoTitle = System.Text.RegularExpressions.Regex.Replace(videoTitle, "[^\w\.@\[\]\\/()&%' #{}€$£!=-]", String.Empty)
                videoTitle = videoTitle.Replace("\\", "-").Replace("/", "-").Trim()
                If (videoTitle.StartsWith("Youtube", StringComparison.CurrentCultureIgnoreCase)) Then
                    videoTitle = videoTitle.Substring(7).Trim(" -*".ToCharArray())
                End If
            End If
        Catch ex As Exception
 
            videoTitle = ""
        End Try