Character error when using MSXML2

[levifunk]

I'm having a problem downloading data when the website uses foreign or special characters. In this case "Rübæus"

Here is my code:

Dim xmlhttp As New MSXML2.XMLHTTP50
Dim text1 As String
xmlhttp.Open "GET", "http://beeradvocate.com/beer/profile/1199/23474", False
xmlhttp.send
text1 = xmlhttp.responseText
Sheets("Sheet1").Cells(1, 1) = text1

If you look at what is written on Sheet 1, in the 4th line of text returned you'll see this:
title>Founders R￿- Founders Brewing Company - Grand Rapids, MI - BeerAdvocate /title>
<br>
<b>instead of:</b>
title>Founders R<b>übæus</b>- Founders Brewing Company - Grand Rapids, MI - BeerAdvocate /title>
<br>
It is obviously erroring when trying to write out the "ü"

Any thoughts?!

 

[levifunk]

Thank you very much John. That works perfectly!

 

[levifunk]

@John-

actually there is a little problem with this section:

    body = ""
    For i = 1 To Len(XMLHttp.responseBody)
        body = body & Chr(XMLHttp.responseBody(i))
    Next

Len() isn't getting the full length, which leaves me without the bottom of the website...

Is there a different loop that would be more appropriate?

 

[John_w]

Change it to:

    Dim char As Variant
    body = ""
    For Each char In XMLHttp.responseBody
        body = body & Chr(char)
    Next

 

[levifunk]

perfect. cheers.