VBA И INTERNET - нужна помощь

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

Помогите пожалуйста! Как Скачать TXT файл с сервера?
например у меня есть сайт на народе-www.popochka.narod.ru
и TXt файл на нём -www.popochka.narod.ru/text.txt
Как мне text.txt скопировать на камп? Помогите чем сможете!

Решение задачи: «VBA И INTERNET - нужна помощь»

textual
                            Листинг программы 
                        

                            <font color="blue">Private</font> <font color="blue">Declare</font> <font color="blue">Function</font> URLDownloadToFile Lib <font color="teal">"urlmon"</font> Alias _
    <font color="teal">"URLDownloadToFileA"</font> (<font color="blue">ByVal</font> pCaller <font color="blue">As</font> <font color="blue">Long</font>, _
    <font color="blue">ByVal</font> szURL <font color="blue">As</font> <font color="blue">String</font>, <font color="blue">ByVal</font> szFileName <font color="blue">As</font> <font color="blue">String</font>, _
    <font color="blue">ByVal</font> dwReserved <font color="blue">As</font> <font color="blue">Long</font>, <font color="blue">ByVal</font> lpfnCB <font color="blue">As</font> <font color="blue">Long</font>) <font color="blue">As</font> <font color="blue">Long</font>

<font color="blue">Private</font> <font color="blue">Sub</font> Command1_Click()
<font color="blue">Static</font> i <font color="blue">As</font> <font color="blue">Integer</font>
<font color="blue">Dim</font> s <font color="blue">As</font> <font color="blue">String</font>
s = <font color="teal">"c:\index"</font> & i & <font color="teal">".html"</font>
URLDownloadToFile <font color="darkblue"><b>0</b></font>, <font color="teal">"https://www.sql.ru/forum/actualforum.aspx"</font>, s, <font color="darkblue"><b>0</b></font>, <font color="darkblue"><b>0</b></font>
i = i + <font color="darkblue"><b>1</b></font>
<font color="blue">End</font> <font color="blue">Sub</font>
                        