Многопоточность в VBA

Option Explicit
Public Declare Function CoInitializeEx Lib "ole32.dll" (ByVal pvReserved As Long, ByVal dwCoInit As Long) As Long
 
Public Function GOOGLETRANSLATE(text As String, source_language As String, target_language As String) As String
    Dim URL As String, XMLHTTPS As MSXML2.ServerXMLHTTP60
    Dim HTML As Object, HTMLDc As HTMLDocument, Class As HTMLDivElement
    CoInitializeEx 0&, 0&
    On Error Resume Next
    Set XMLHTTPS = New MSXML2.ServerXMLHTTP60
    Set HTML = New HTMLDocument
    
    URL = "https://translate.google.com/m?sl=" & source_language & "&tl=" & target_language & "&hl=en&ie=UTF-8&q=" & RussianStringToURLEncode$(text)
    XMLHTTPS.Open "GET", URL, False
    XMLHTTPS.setTimeouts 1000000, 1000000, 1000000, 1000000
    XMLHTTPS.setRequestHeader "User-Agent", "Mozilla/5.0 (compatible;MSIE 6.0; WindowsNT 10.0))"
    XMLHTTPS.send ""
    HTML.Open
    HTML.write XMLHTTPS.responseText
    HTML.Close
    
    Set HTMLDc = HTML
    Set Class = HTMLDc.getElementsByClassName("result-container")(0)
    If Not Class Is Nothing Then
        GOOGLETRANSLATE = Class.innerText
    End If
    Set Class = Nothing
    Set HTML = Nothing
    Set HTMLDc = Nothing
    Set XMLHTTPS = Nothing
    CoUninitialize
End Function

Public Declare Function CreateThread Lib "kernel32" (ByVal lpThreadAttributes As Long, ByVal dwStackSize As Long, ByVal lpStartAddress As Long, lpParameter As Any, ByVal dwCreationFlags As Long, lpThreadId As Long) As Long
Private Declare Function SuspendThread Lib "kernel32.dll" (ByVal hThread As Long) As Long
Private Declare Function ResumeThread Lib "kernel32.dll" (ByVal hThread As Long) As Long
Public Declare Function TerminateThread Lib "kernel32.dll" (ByVal hThread As Long, ByVal dwExitCode As Long) As Long
Public Declare Function CloseHandle Lib "kernel32" (ByVal hObject As Long) As Long
Public Declare Sub Sleep Lib "kernel32" (ByVal milliseconds As Long)
 
Private Const CREATE_SUSPENDED = &H4
 
Sub StartThread()
    Dim i&
    flag0 = 1
    For i = 0 To 2
        hThreads(i) = CreateThread(ByVal 0&, 0&, AddressOf Thread0, ByVal 0&, CREATE_SUSPENDED, 0)
        Sleep 20
    Next
    For i = 0 To 2
      Sleep 20
      DoEvents
      ResumeThread hThreads(i)
    Next
    Sleep 50
    DoEvents
    Do While flag0
        DoEvents
        Sleep 100
    Loop
    Sleep 1000
    For i = 0 To 2
        Sleep 50
        DoEvents
        TerminateThread hThreads(i), ByVal 0&
        CloseHandle hThreads(i)
    Next
End Sub
 
Sub StopThread() 'Процедуру повесить на кнопку
    flag0 = 0
End Sub
 
Private Sub Thread0(ByVal unuse As Long)
    CoInitialize ByVal 0&
    On Error Resume Next
    
    Do While flag0
    Loop
    
    CoUninitialize
End Sub

Public Declare Function CreateThread Lib "kernel32" (ByVal lpThreadAttributes As Long, ByVal dwStackSize As Long, ByVal lpStartAddress As Long, lpParameter As Any, ByVal dwCreationFlags As Long, lpThreadId As Long) As Long
 
Private Const CREATE_SUSPENDED = &H4
Private flag0&
 
Sub StartThread()
    const CntT& = 3 '(4)колличество потоков
    Dim i&
    flag0 = 1
    For i = 0 To CntT
        hThreads(i) = CreateThread(ByVal 0&, 0&, AddressOf Thread0, ByVal 0&, CREATE_SUSPENDED, 0) 'VarPtr(arrOut(0))
        Sleep 20
    Next
    For i = 0 To CntT
      Sleep 20
      DoEvents
      ResumeThread hThreads(i)
    Next
    Sleep 50
    DoEvents
    Do While flag0
        DoEvents
        Sleep 100
    Loop
    Sleep 2000 'даем время потокам на остановку циклов
    For i = 0 To CntT
        Sleep 50
        DoEvents
        SuspendThread hThreads(i)
        TerminateThread hThreads(i), ByVal 0&
        CloseHandle hThreads(i)
    Next
End Sub
 
Sub StopThread()
    flag0 = 0
End Sub
 
Private Sub Thread0(ByVal unuse As Long)
    CoInitialize ByVal 0&
    On Error Resume Next
    
    Do While flag0
    Loop
    
    CoUninitialize
    Sleep 3000 'ставим поток на паузу, чтобы завершить его "вручную" (TerminateThread)
End Sub