How can I change the Timeout of a HttpRequest in VBA?

Question

I adopted code from How do I download a file using VBA (without Internet Explorer). It works fine unless when there is no answer from the device. I will get an error ("-214