Read Internet file as read on computer?

Option Explicit


Sub Read_file ()


Dim http as Object
Dim oStream as Object
Dim url as String


set http = CreateObject("Microsoft.XMLHTTP")


url = "https://www.w3.org/TR/PNG\iso_8859-1.txt" 'just a random internet file I found for trying it out
http.Open "GET", url, False
html.Send
if http.Status = 200 then
    Set oStream = CreateObject("ADODB.Stream")
    oStream.Open
    oStream.Type = 1
    oStream.WriteText http.responseBody
    oStream.SaveToFile "C:\savefile.txt", 2 ' 1 = no overwrite, 2 = overwrite
    oStream.Close
End If


end Sub

Option Explicit


Sub ReadFile()
    Dim oHttp As Object
    Dim urlFile As String, readURLFile As String
    Dim strPath As String
    
    strPath = "c:\temp\test.txt"
    
    On Error GoTo Error_Handler
    Set oHttp = CreateObject("MSXML2.ServerXMLHTTP")
    urlFile = "https://www.w3.org/TR/PNG/iso_8859-1.txt"
    Call oHttp.Open("GET", urlFile, False)
    Call oHttp.Send
    'Check for any errors reported by the server
    'Only basic error handling offered here - depending on
    'how robust the application will determinethe level of
    'error handling
    If oHttp.Status >= 400 And oHttp.Status <= 599 Then
        readURLFile = ""
    Else
        'if no errors readURLFile contains the text file from
        'source web page
        readURLFile = oHttp.ResponseText
        Call WriteDataToTextFile(strPath, readURLFile)
    End If
    MsgBox "Data written to file", vbOKOnly
    
Error_Handler:
        If oHttp.Status >= 400 And oHttp.Status <= 599 Then
            MsgBox "The following error has occured." & vbCrLf & _
                   "Error Number: " & oHttp.Status & vbCrLf & _
                   "Error Source: readURLFile" & vbCrLf & _
                   "Error Description: " & oHttp.StatusText, _
                   vbCritical, "An Error has Occured!"
        End If
End Sub


Sub WriteDataToTextFile(ByVal strPath As String, ByVal data As String)
    Dim fso As Object
    Set fso = CreateObject("Scripting.FileSystemObject")
    Dim oFile As Object
    Set oFile = fso.CreateTextFile(strPath)
    oFile.Write (data)
    oFile.Close
    Set fso = Nothing
    Set oFile = Nothing
End Sub