Untitled

<HTML>
<HEAD>
<TITLE></TITLE>
</HEAD>
<BODY>
<U>【書類名】　　　　　　　手続補正書</U><BR>
<SUP>【提出日】</SUP>　　　　　　　平成２０年１月２１日<BR>
<SUB>【あて先】</SUB>　　　　　　　特許庁長官　殿<BR>
<FONT SIZE="6">【事件の表示】</FONT><BR>
<FONT SIZE="5">　　【<U>出願番号</U>】　　　　<?pi 処理命令 ?><!--コメント-->特願<SUP>２０１７</SUP>－<SUB>５０６７２０</SUB></FONT><BR>
【補正をする者】<BR>
...
</BODY>
</HTML>

Dim streamReader As StreamReader = New StreamReader("D:My_DocumentsXML2019JPO-HTMLtestdataF58737H1-mod.html", Encoding.GetEncoding("Shift_JIS"))
    Dim SgmlReader As Sgml.SgmlReader = New Sgml.SgmlReader()
    SgmlReader.DocType = "HTML"
    SgmlReader.WhitespaceHandling = Xml.WhitespaceHandling.All
    SgmlReader.CaseFolding = Sgml.CaseFolding.ToUpper
    SgmlReader.InputStream = streamReader
    Dim doc As XDocument = XDocument.Load(SgmlReader)
    Dim body As XElement = doc.Element("HTML").Element("BODY")
    Dim nodes As IEnumerable(Of XNode) = body.Nodes