HttpReq.send в Excel VBA дает ошибку разрешения

Question

Я получил этот код .... когда код HttpReq.send достигнут, я получаю ошибку разрешения.

Самое смешное, что не все URL-адреса дают проблему с ошибкой разрешения, а только некоторые URL-адреса конкретного поставщика.

Я могу отправить URL-адрес вручную в моем браузере на том же компьютере без каких-либо проблем.

Sub downloadIcalFiles(icalfilename)

Dim myURL As String
Dim HttpReq As Object

myURL = icalfilename

Set HttpReq = CreateObject("Microsoft.XMLHTTP")
HttpReq.Open "GET", myURL, False, "username", "password"
HttpReq.send

myURL = HttpReq.responseBody
If HttpReq.Status = 200 Then
    Set oStrm = CreateObject("ADODB.Stream")
    oStrm.Open
    oStrm.Type = 1
    oStrm.Write HttpReq.responseBody
    oStrm.SaveToFile "C:\Temp\ical" & "\" & "icalfile.csv", 2 ' 1 = no overwrite, 2 = overwrite

    oStrm.Close
End If


End Sub