Dim web As new System.Windows.Forms.WebBrowser
web.Navigate("http://hrcp.co/page/YLFXssc.shtml?id=15")
Do Until web.ReadyState = 4
Application.DoEvents
Loop
For Each tr As object In web.Document.GetElementsByTagName("tr")
If tr.GetAttribute("ClassName") = "ylfx_content"
Dim str As String = ""
For Each td As object In tr.GetElementsByTagName("td")
str &= td.InnerText & " "
Next
output.show(str)
End If
Next