Загрузка файлов с интернета - VB

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

Привет ребята!
Хочу написать прогу для закачки файлов из интернета. Есть у кого код, а я его под свой лад подкручу?
Планирую задать один URL и лист файлов для скачивания. Имя файлов идет по возрастанию цифр. Например 1.jpg, 2.jpg,3.jpg...
Заранее благодарю!

Решение задачи: «Загрузка файлов с интернета»

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

                            <font color="blue">Dim</font> oXMLHTTP <font color="blue">As</font> <font color="blue">Object</font>
<font color="blue">Set</font> oXMLHTTP = CreateObject(<font color="teal">"MSXML2.XMLHTTP"</font>)
oXMLHTTP.<font color="blue">Open</font> <font color="teal">"GET"</font>, UrlFile
oXMLHTTP.send
<font color="blue">Do</font> <font color="blue">While</font> oXMLHTTP.readyState <> <font color="darkblue"><b>4</b></font>
    DoEvents
<font color="blue">Loop</font>
<font color="blue">With</font> CreateObject(<font color="teal">"ADODB.Stream"</font>)
     .Mode = <font color="darkblue"><b>3</b></font>
     .<font color="blue">Type</font> = <font color="darkblue"><b>1</b></font>
     .<font color="blue">Open</font>
     .<font color="blue">Write</font> oXMLHTTP.responseBody
     .SaveToFile <font color="teal">"C:\Temp\"</font> & file_name, <font color="darkblue"><b>2</b></font>
<font color="blue">End</font> <font color="blue">With</font>

                        