Dim DatosBruto As String = "<tbody><tr id=""timetableBlocks-23-01-18"" style=""display: block;""><td style=""width: 135px;"">23/01/2018</td><td style=""width: 135px;"">759.655</td><td style=""width: 135px;"">46.705</td><td style=""width: 135px;"">42.724</td><td style=""width: 135px;"">224.863</td><td style=""width: 135px;"">76.364</td><td style=""width: 135px;"">171.784</td><td style=""width: 135px;"">0</td><td style=""width: 135px;"">197.215</td></tr><tr id=""timetableBlocks-22-01-18"" style=""display: block;""><td style=""width: 135px;"">22/01/2018</td><td style=""width: 135px;"">553.995</td><td style=""width: 135px;"">42.573</td><td style=""width: 135px;"">194.736</td><td style=""width: 135px;"">26.671</td><td style=""width: 135px;"">221.950</td><td style=""width: 135px;"">13.780</td><td style=""width: 135px;"">0</td><td style=""width: 135px;"">54.285</td></tr></tbody>"
Dim html = New HtmlDocument()
html.LoadHtml(DatosBruto)
For Each cell In html.DocumentNode.SelectNodes("//tbody/tr/td")
Console.WriteLine(cell.InnerText)