Private WithEvents r As WinHttpRequest
Attribute r.VB_VarHelpID = - 1 
Dim finish As Boolean
Dim path2 As String
Private Sub r_onResponseFinished()
If r.Status <>  404  Then
strrs = r.ResponseText
WriteFile path2, Len(strrs),  1 , strrs
path2 = ""
End If
finish = True
End Sub
 Sub IEDOWNLOADS(Path As String, loPath As String)
    Set r = New WinHttpRequest

    ' True - асинхронно
    r.Open "GET", Path, True

   DoEvents
     finish = False
    r.Send
path2 = loPath

Do
 DoEvents
If finish = True Then Exit Sub

Loop
 finish = False
End Sub
Private Function WriteFile(Path As String, WRITESZ As Long, POSE As Long, SetSTRING) As Boolean
On Error Resume Next
Open Path For Binary Access Write As # 1 
Dim kstr As String
kstr = Mid(SetSTRING,  1 , WRITESZ)
Put # 1 , POSE, kstr
Close # 1 

End Function