URLDownloadToCacheFile VB6

Формулировка задачи:

Привет. Помогите пожалуйста разобраться с этой функцией. Весь интернет перерыл, ни одного рабочего примера для vb6. Я только начинаю изучать программирование и без реального работающего примера я не могу понять как правильно ее использовать. Если можно, напишете пожалуйста простой пример. Правильное объявление функции, правильная загрузка страницы в кеш этой функцией и занесение полученного кеша в массив или переменную для дальнейшей обработки. С другой похожей функцией (UrlDownloadToFile) разобрался ибо нашел нормальные примеры в интернете, но она не совсем подходит. Сначало сохранять данные в файле, а потом из файла читать в массив - это не правильно. Зачем напрягать жесткий диск, пусть отдыхает Лучше сразу в оперативную память. Тем более что писать я планирую бот, который очень много и часто будет обновлять информацию. Единственный пример (не рабочий) который я нашел:

Declare Function URLDownloadToCacheFile Lib "urlmon" Alias "URLDownloadToCacheFileA" _
( lpUnkcaller As Long, _
szURL As String, _
byref szFileName As String, _
dwBufLength As Long, _
dwReserved As Long, _
IBindStatusCallback As Long) As Long
 
Function DownloadFile(URL As String) As String
Dim szFileName As String
szFileName = Space$(300)
szFileName =fname 'имя файла
zz=URLDownloadToCacheFile(0, URL, szFileName, Len(szFileName), 0, 0)
print"zz=";zz
If zz = 0 Then DownloadFile = Trim(szFileName)
End Function

Кажется автор кода был не сильно трезвый

Решение задачи: «URLDownloadToCacheFile VB6»

textual
                            Листинг программы 
                        

                                Inet1.Cancel
    Inet1.Protocol = icHTTPS
    Inet1.URL = "https://api.hitbtc.com/api/2/public/ticker"                         'работает
    'Inet1.URL = "https://yobit.net/api/3/ticker/btc_usd-eth_usd-trx_usd-error_pair?ignore_invalid=1"    'не работает !!!
    Dim Massiv() As Byte
    Massiv() = Inet1.OpenURL(, icByteArray)               'сохранить в масиве
    Open "d:\1.txt" For Binary Access Write As #1        'сохранить в файле
      Put #1, , Massiv()
    Close #1
                        