Закачка из Интернета по протоколу https - возможно ли?

Option Explicit
 
Private Declare Function InternetOpen Lib "wininet.dll" Alias "InternetOpenW" (ByVal sAgent As Long, ByVal lAccessType As Long, ByVal sProxyName As Long, ByVal sProxyBypass As Long, ByVal lFlags As Long) As Long
Private Declare Function InternetOpenUrl Lib "wininet.dll" Alias "InternetOpenUrlW" (ByVal hOpen As Long, ByVal sURL As Long, ByVal sHeaders As Long, ByVal lLength As Long, ByVal lFlags As Long, ByVal lContext As Long) As Long
Private Declare Function HttpQueryInfo Lib "wininet" Alias "HttpQueryInfoW" (ByVal hRequest As Long, ByVal dwInfoLevel As Long, lpBuffer As Any, ByRef lpdwBufferLength As Long, ByRef lpdwIndex As Long) As Long
Private Declare Function InternetReadFile Lib "wininet.dll" (ByVal hFile As Long, sBuffer As Any, ByVal lNumBytesToRead As Long, lNumberOfBytesRead As Long) As Integer
Private Declare Function InternetCloseHandle Lib "wininet.dll" (ByVal hInet As Long) As Integer
Private Declare Function InternetSetFilePointer Lib "wininet" (ByRef hFile As Long, ByVal lDistanceToMove As Long, pReserved As Any, ByVal dwMoveMethod As Long, ByVal dwContext As Long) As Long
 
Private Const FILE_BEGIN                    As Long = 0
Private Const INTERNET_OPEN_TYPE_PRECONFIG  As Long = 0
Private Const INTERNET_FLAG_RELOAD          As Long = &H80000000
Private Const HTTP_QUERY_CONTENT_LENGTH     As Long = 5
Private Const HTTP_QUERY_FLAG_NUMBER        As Long = &H20000000
 
Private Sub Form_Load()
    Dim hInternet   As Long
    Dim hURL        As Long
    Dim size        As Long
    Dim arr()       As Byte
    Dim ret         As Long
 
    hInternet = InternetOpen(StrPtr(App.ProductName), INTERNET_OPEN_TYPE_PRECONFIG, 0, 0, 0)
    If hInternet = 0 Then Exit Sub
    
    hURL = InternetOpenUrl(hInternet, StrPtr("https://msdn.microsoft.com/ru-ru/library/windows/desktop/aa384238(v=vs.85).aspx"), 0, 0, INTERNET_FLAG_RELOAD, 0)
    If hURL = 0 Then Exit Sub
    
    ret = HttpQueryInfo(hURL, HTTP_QUERY_CONTENT_LENGTH Or HTTP_QUERY_FLAG_NUMBER, size, Len(size), 0)
    If ret = 0 Then Exit Sub
    
    ReDim arr(size - 1)
    
    InternetSetFilePointer hURL, 0, ByVal 0, FILE_BEGIN, 0
    
    ret = InternetReadFile(hURL, arr(0), size, 0)
    If ret = 0 Then Exit Sub
    
    InternetCloseHandle hURL
    InternetCloseHandle hInternet
    
    Debug.Print StrConv(arr(), vbUnicode)
 
End Sub

Const scUserAgent = "Mozilla/5.0"
' Тут можно поиграться с типами подключения, в коде INTERNET_OPEN_TYPE_PRECONFIG или INTERNET_OPEN_TYPE_DIRECT
Const INTERNET_OPEN_TYPE_PRECONFIG = 0
Const INTERNET_OPEN_TYPE_DIRECT = 1
Const INTERNET_OPEN_TYPE_PROXY = 3
 
Const INTERNET_FLAG_RELOAD = &H80000000
Const sURL = "https://msdn.microsoft.com/ru-ru/library/windows/desktop/aa384238(v=vs.85).aspx"
Private Declare Function InternetOpen Lib "wininet" Alias "InternetOpenA" (ByVal sAgent As String, ByVal lAccessType As Long, ByVal sProxyName As String, ByVal sProxyBypass As String, ByVal lFlags As Long) As Long
Private Declare Function InternetCloseHandle Lib "wininet" (ByVal hInet As Long) As Integer
Private Declare Function InternetReadFile Lib "wininet" (ByVal hFile As Long, ByVal sBuffer As String, ByVal lNumBytesToRead As Long, lNumberOfBytesRead As Long) As Integer
Private Declare Function InternetOpenUrl Lib "wininet" Alias "InternetOpenUrlA" (ByVal hInternetSession As Long, ByVal lpszUrl As String, ByVal lpszHeaders As String, ByVal dwHeadersLength As Long, ByVal dwFlags As Long, ByVal dwContext As Long) As Long
Private Sub Form_Load()
     Dim hOpen As Long, hFile As Long, sBuffer As String, Ret As Long, https As String
    'Создаем буфер
    sBuffer = Space(1000)
    'Открываем соединение
    hOpen = InternetOpen(scUserAgent, INTERNET_OPEN_TYPE_PRECONFIG, vbNullString, vbNullString, 0)
    'Открываем URL
    hFile = InternetOpenUrl(hOpen, sURL, vbNullString, ByVal 0&, INTERNET_FLAG_RELOAD, ByVal 0&)
    'Читаем в цикле, пока есть инфа
    Do
    InternetReadFile hFile, sBuffer, 1000, Ret
    https = https & sBuffer
    Loop While Ret
    
    ' Всё закрываем
    InternetCloseHandle hFile
    InternetCloseHandle hOpen
    'Смотрим, что закачали
    Text1.Text = https ' Что бы увидеть результат, всё в текст
End Sub

Private Const INTERNET_FLAG_IGNORE_CERT_DATE_INVALID  As Long = &H2000
Private Const INTERNET_FLAG_IGNORE_CERT_CN_INVALID    As Long = &H1000

    hURL = InternetOpenUrl(hInternet, _
                           StrPtr("https://msdn.microsoft.com/ru-ru/library/windows/desktop/aa384238(v=vs.85).aspx"), _
                           0, _
                           0, _
                           INTERNET_FLAG_RELOAD Or INTERNET_FLAG_IGNORE_CERT_DATE_INVALID Or INTERNET_FLAG_IGNORE_CERT_CN_INVALID, _
                           0)