загрузка файла из интернета.

Добрый день.
Нашел в примерах как загрузить файл и зинтернета.

Function DownLoadFile2(strPathName As String)
Dim lngRetVal As Long
lngRetVal = DoFileDownload(StrConv(strPathName, vbUnicode))
If lngRetVal = 0 Then DownLoadFile2 = True
End Function

где то так. Проблема оказалась. Чтобы файл скачать требуется пароль.
Пароль есть, но как сделать чтобы он заносился автоматически не знаю.
Просто хотел чтоб файл ночью закачивался, а потом обрабатывался.
А днем уже можно с ним работать. А то каждый раз приходится в ручную
пользователя и пароль заносить.

http://www.sql.ru/forum/1195399/zagruzka-fayla-iz-interneta