If sLine <> Nothing Then If sLine.Contains("<SPAN class='Area'>") Then Dim cadena As Integer = (sLine.Length - 19 - 7) Area += sLine.Substring(19, cadena) + " " End If End If