excel - How to copy HTML source code to worksheet

Question

So i have this code, it strips the whole HTML source code to next cells in a columns. The problem is that the web page that I use to extract the HTML source code have some Polish letters like "?","?" and so on. Is there a way to paste the code with those Polish letters ? Now I'm getting some crazy squares with question marks and so on. Any tip ?

ps. I have this code thanks to @pizzettix https://stackoverflow.com/users/6254609/pizzettix

Sub audycje()
    
    Dim strona As Object
    Dim adres As String
    Dim wb As Workbook
    Dim a As Object
    Dim str_var As Variant
    
    Set wb = ThisWorkbook
    adres = InputBox("Podaj adres strony")
    If adres = "" Then
       MsgBox ("Nie podano strony do zaladowania")
    Exit Sub
    End If
    
    Set strona = CreateObject("htmlfile")   'Create HTMLFile Object
    With CreateObject("msxml2.xmlhttp")  'Get the WebPage Content
       .Open "GET", adres, False
       .send
       strona.Body.Innerhtml = .responseText
    End With
    
    'Split_with_delimiter_newline
    split_var = Split(strona.Body.Innerhtml, Chr(10))
    
    Application.ScreenUpdating = False
    
    For i = 0 To UBound(split_var, 1)
       Cells(2 + i, 2).Value2 = split_var(i)
    Next i
    
    Application.ScreenUpdating = True
    
    End Sub

question from:https://stackoverflow.com/questions/65941673/how-to-copy-html-source-code-to-worksheet

Answer 1

For encoding problems add in the beginning (Function avilable in Office 2013 and above):

Mystring = WorksheetFunction.EncodeURL(Mystring)

see my original post at Extract content of div from Google Translate with VBA

If your Office version is before 2013 or if you need to distribute to user that might have older versions then use: How can I URL encode a string in Excel VBA?

Change your code like this:

Dim Mystring as string
For i = 0 To UBound(split_var, 1)
   Mystring= split_var(i)
   Mystring = WorksheetFunction.EncodeURL(Mystring)
   Cells(2 + i, 2).Value2 = Mystring
Next i