Q:

Scraping data in as it is format for French Characters VBA

I am trying to scrape data from htm file in the format as it is including hex code for french characters, But after scraping it converts into character which I dont want. Any idea?? 
I have searched everywhere for this but failed to get answer so I registered here with my own trouble.

src = UserForm1.WebBrowser1.document.body.innerHTML

above code to get the source code
the specific "source text" which I want is below:
the bold font one coverts to Character in extracteed source file.

"Intel Inside<sup>**&reg;**</sup><br>pour une<br>productivit**&#xE9;**<br>exceptionnelle."

but instead I am getting: 
"Intel Inside<sup>®</sup><br>pour une<br>productivité<br>exceptionnelle.

How do I get the text I mentioned first. I have just started my VBA so I might sound naive, so please be lil gentle with me.
Thanks:)

A:

You can get the raw HTML using MSXML2 as your browser.  IE.responseText is the unprocessed HTML.  As soon as you load the raw HTML into the HTMLBody the special characters are converted.
The IE.responseText is raw text.  This means you will have to manually parse it.  I would recommend using RegEx to do so. 

Public Sub ParseMaterial()
    Const FILE_URL = "D:\test.html"
    Dim IE As MSXML2.XMLHTTP60
    Set IE = New MSXML2.XMLHTTP60

    Dim HTMLDoc As MSHTML.HTMLDocument
    Dim HTMLBody As MSHTML.HTMLBody

    Set HTMLDoc = New MSHTML.HTMLDocument
    Set HTMLBody = HTMLDoc.body

    IE.Open "GET", FILE_URL, False
    IE.send

    While IE.ReadyState <> 4
        DoEvents
    Wend

    HTMLBody.innerHTML = IE.responseText

    Debug.Print "HTMLBody.innerHTML"
    Debug.Print HTMLBody.innerHTML
    Debug.Print
    Debug.Print "Raw HTML:  IE.responseText";
    Debug.Print IE.responseText
End Sub

