Convert HTML File to XML File

Convert HTML file to XML file.

Dim htmlToXml As New HtmlToXml

Dim success As Long

'  Any string argument automatically begins the 30-day trial.
success = htmlToXml.UnlockComponent("30-day trial")
If (success <> 1) Then
    MsgBox "HtmlToXml component unlock failed"
    Exit Sub
End If

'  Indicate the charset of the output XML we'll want.
htmlToXml.XmlCharset = "utf-8"

success = htmlToXml.ConvertFile("test.html","out.xml")
If (success <> 1) Then
    MsgBox htmlToXml.LastErrorText
Else
    MsgBox "Success"
End If