html bestanden inlezen met speciale character

[richard99]

Wie kan mij helpen met een stukje code om gedowloaden html bestanden in te lezen welke speciale characters bevatten?
Onderstaande code gebruik ik nu echter wanneer ik een woord: café inlees krijg ik als waarde: café Ã
Ik heb even online gezocht maar kon niets vinden en wellicht hebben een van jullie zo'n oplossing al liggen.

Open MyPath & strFilename For Input As #1
Do While Not EOF(1)
Input #1, MyString

If InStr(MyString, "hp_address_subtitle") > 0 Then
blnAdresModus = True
ElseIf blnAdresModus = True And InStr(MyString, "</span>") > 0 Then
blnAdresModus = False
End If

If blnAdresModus = True Then
strEffe = strEffe & MyString & ", "
Else
strEffe = strEffe & MyString
End If

Loop
Close #1

 

[richard99]

Zelf gevonden, zie onderstaande:

Dim msXML As Object
Dim fh As Long
Dim strXmlType As String

On Error GoTo ErrorHandler

fh = FreeFile
Set msXML = CreateObject("Microsoft.XMLHTTP")
msXML.Open "GET", strUrl7, False

strXmlType = "text/plain;charset=UTF-16"
msXML.SetRequestHeader "Content-type", strXmlType

msXML.send
GetValueUrl2 = msXML.responseText

ErrorHandler:
If Err.number > 0 Then
MsgBox Err.Description
Err.Clear
Exit Function
End If

 

[snb]

Ik zou het zo schrijven:

Sub M_snb()
   With CreateObject("Microsoft.XMLHTTP")
      .Open "GET", "http://snb-vba.eu/index.html", False
      .SetRequestHeader "Content-type", "text/plain;charset=UTF-16"
      .send
      c00 = .responseText
   End With
End Sub