Public Function ReadURL(ByVal sURL As String) As String
    Dim oWinHTTP        As Object 'As New WinHttp.WinHttpRequest
 
    Set oWinHTTP = CreateObject("WinHttp.WinHttpRequest.5.1")
 
    With oWinHTTP
        Call .Open("GET", sURL)
        Call .Send
        ReadURL = .ResponseText
    End With
 
    Set oWinHTTP = Nothing
End Function

'URLMON
Private Declare Function URLDownloadToFile Lib "urlmon" Alias "URLDownloadToFileA" (ByVal pCaller As Long, ByVal szURL As String, ByVal szFileName As String, ByVal dwReserved As Long, ByVal lpfnCB As Long) As Long
 
Public Function DownloadToFolder(ByVal sURL As String, ByVal sFolder As String) As Boolean
    Dim sPath           As String
 
    If Right$(sFolder, 1) <> "\" Then sFolder = sFolder & "\"
 
    sPath = sFolder & Mid$(sURL, InStrRev(sURL, "/") + 1)
 
    DownloadToFolder = (URLDownloadToFile(ByVal 0&, sURL, sPath, ByVal 0&, ByVal 0&) = 0)
End Function

Option Explicit
 
Dim WithEvents oWinHTTP         As WinHttp.WinHttpRequest
 
Private Sub Form_Load()
    Set oWinHTTP = New WinHttp.WinHttpRequest
    Debug.Print ReadURL("https://foro.elhacker.net/programacion_vb-b50.0/")
End Sub
 
Public Function ReadURL(ByVal sURL As String) As String
'    Dim oWinHTTP        As Object 'As New WinHttp.WinHttpRequest
'
'    Set oWinHTTP = CreateObject("WinHttp.WinHttpRequest.5.1")
 
    With oWinHTTP
        Call .Open("GET", sURL)
        Call .Send
        ReadURL = .ResponseText
    End With
 
'    Set oWinHTTP = Nothing
End Function
 
Private Sub oWinHTTP_OnResponseStart(ByVal Status As Long, ByVal ContentType As String)
    MsgBox "Se inicio la descarga"
End Sub
 
Private Sub oWinHTTP_OnResponseFinished()
    MsgBox "Se finalizo la descarga!!"
End Sub