Выделение процесса парсинга WEB страницы в отдельный поток - VB

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

Добрый день всем! Возможно некорректно выразился с названием темы. Суть вопроса. необходимо спарсить большое количество ссылок. По ряду ссылок, обем данных более 10 мб. Во время парсинга, форма висит. Попытка интегрировать DoEvents в тело функции

ParseFileFromHTTP

успехов не дала. Подскажите как вынести функцию парсинга в отдельный поток? Заранее признателен за помощь...

Option Explicit
 
Private Sub Form_Load()
    
    ParseFileFromHTTP "https://blocklist.site/app/dl/redirect", "temp.txt"
    Unload Me
    End
 
End Sub
 
Private Function ParseFileFromHTTP(sUrl As String, sFileName As String)
    
    Dim objHttp             As Object
    Dim strText             As String
    Dim GetHTMLCode         As String
    Dim fNum                As Integer
    
    Set objHttp = CreateObject("MSXML2.ServerXMLHTTP")
    objHttp.Open "GET", sUrl, False
    objHttp.setRequestHeader "User-Agent", "Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.0)"
    objHttp.send ("")
    GetHTMLCode = objHttp.responseText
    Set objHttp = Nothing
    
    fNum = FreeFile
    
    Open sFileName For Output As #fNum
        Print #fNum, GetHTMLCode
    Close #fNum
 
End Function

Решение задачи: «Выделение процесса парсинга WEB страницы в отдельный поток»

textual
                            Листинг программы 
                        
                                Set objHttp = CreateObject("MSXML2.XMLHTTP")
    objHttp.Open "GET", sUrl, True